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Editorial 



La galaxie Apple est dicidiment en etat de mouvement perpituel ! Steve Wozniak cree une nouvelle 
sociiti spicialisie dans le gadget ilectronique pour ecrans familiaux. quittant ainsi Apple qui. selon lui. 
n a pas assez developpe I Apple II. 

Avant son depart, lors d'une interview. Steve diclarait que le l/c nest plus appele a itre "etendu". en 
tous cas par Apple. La rubrique Micro-informations apporte de plus amples renseignements sur Apple et 
sa politique. 

De notre cote de I'Atlantique. nous avons de bonnes raisons de pavoiser. Les deux meilleurs logiciels 
de gestion de fichiers sur le Macintosh, parmi une quinzaine de concurrents, sont de creation frangaise. 
Contrdle X a passe un accord avec Hat/den Software pour la commercialisation de CX MacBase aux 
Etats-Unis. 

A. C.I. a realise une tres belle performance en emportant. avec son programme ABCbase. le prix 
convoite de la Pomme d'Or. 

Au niveau du materiel. Apple-Tell realise un triomphe. ayant reussi a vendre en dicembre sa 
1000 e carte, et en voyant la Pomme d'Or couronner trois criateurs ayant realise leurs diveloppements 
autour de cette carte. 

Nous vous proposons dans ce numiro un questionnaire que vous pouvez completer et nous renvoyer. 
II y aura 15 abonnements (avec disquettes) a Pom's a gagner. Pour participer au tirage au sort, il vous 
suffit de nous le (aire parvenir avant la fin du mois d'avril. Les lecteurs deja abonnis pourront prolonger 
leur abonnement. ou I'offrir (nous encourageons toujours le prosily tisme... ). La liste des gagnants 
pourra etre consultee sur notre stand au Sicob Printemps ou a Apple Expo (toutelois. les gagnants 
seront privenus par courtier). Bien entendu. un seul questionnaire peut etre envoyi par lecteur. Cela 
nous permettra de mieux vous connaitre et de mieux ripondre a vos besoins. 

Pom's vous propose deux nouveaux produits. Le premier est une disquette de demonstration de Max 
the Globe Trotter. Max the Globe Trotter est un cours de 50 heures d'anglais sur des supports diffirents 
(livre. cassettes audio et disquette). II est vendu par Microlingua au prix de 1200 francs. 
Le second. MAX (sans rapport avec le precedent), est un moniteur tres etendu pour Apple + . e ou 
'C qui comporte un acces direct aux registres. un mini-assembleur. et bien d'autres choses encore.... 
Dans ce numero. vous trouverez. outre les rubriques habituelles "Courrier des lecteurs'' et "Micro- 
informations" que nous devons a Olivier Herz et Jean-Michel Gourevitch. la conclusion de la 
celebre (et remarquable !) sirie "Initiation a I' assembleur". rialisie par Gerard Michel. Gerard nous 
propose aussi une tres utile routine (en assembleur. bien sur . ) destinee aux transferts de tableaux de 
variables. 

Pour rester au chapitre "initiation ". Laurence Tichkowsky, qui fait disormais partie de liquipe de 
redaction, debute une serie sur le Pascal UCSD qui s adresse a tous les utilisateurs d Apple, quel que 
soit leur materiel. 

Alain Bellegarde met a notre disposition un programme d'animation de tables de formes, alors que 
Francois Sermier vous propose de transformer (sans fer a souder '.) votre Apple We en Apple 11+ . 
Avec un fer a souder cette fois. les utilisateurs de cartes 80 colonnes munies d'une sortie video pourront 
modifier cette derniere afin ne plus avoir a changer les branchements pour passer de 80 a 40 colonnes. 
ceci a condition de bien respecter les instructions que communique Eric Pascual. 

Pour les utilisateurs d'imprimante Epson. Alexandre Avrane a icrit un programme de copie d'icran 
en assembleur. pendant que de son cote Jean-Francois Rabasse nous concoctait un mini-iditeur 
Basic. Vous trouverez aussi un programme ecrit par Francois Fleury, qui effectue la conversion de 
valeurs numiriques en leur equivalent en "toutes lettres". 

Malgri la densiti des informations destinies aux utilisateurs d'Apple II. les possesseurs de Macintosh ne 
sont pas oubliis. En effet. Jean-Luc Bazanegue propose un "Catalogue sur imprimante'' et Ma- 
rianne Sutz vous donne la marche a suivre pour ajouter deux nouvelles fonctions au Basic Microsoft. 
Ces deux programmes font largement appel au langage machine 68000. processeur qui pourrait bien 
devenir le standard de la micro. 

Nombreux sont ceux qui ont souligni I'intirit pidagogique des articles Mac. bien que ne possidant ni 
Mac ni carte 68000 sur Apple II ou Effectivement. il ne nous itait pas apparu que. mime sans Mac. 
on peut etre passionni par le 68000. 

En ce qui concerne les disquettes Macintosh, et apris quelques mois d'expirience. nous avons dicide 
de publier une disquette Mac par numero. au prix de 80.00 F. Cela ne fait pas beaucoup plus cher 
qu'une disquette vierge et vous ivitera de longues heures de saisie. Bien entendu la disquette regrou- 
pant les programmes des numiros 14 a 16 reste disponible a son prix habituel. 

Herve Thiriez 
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Transfer! rapide de tableaux 

Gerard Michel 



Dans le Pom's 12, nous vous avions 
presente une petite routine en lan- 
gage machine, appelee au moyen de 
I'ampersand, qui permettait d'effacer 
un tableau de variables en memoire 
et d'incrementer ou decrementer le 
nombre d' elements dans un tableau 
a une seule dimension. 
Nous vous en proposons ici une se- 
conde, complementaire de la prece- 
dente, qui permet de copier rapide- 
ment les valeurs des elements d'un 
tableau dans un autre, sans passer 
par des boucles Applesoft, et ce 
quelle que soit la nature du tableau, 
des lors que le tableau de depart et 
celui d'arrivee sont de meme type. 

Pour plus de commodite, nous desi- 
gnerons par Tl, Tl% ou Tl$, le 
nom du tableau original (qui peut 
done s'appeler en fait A$, BS$, F%, 
HH .) et par T2, T2% ou T2$ le ta- 
bleau "duplicata". 

Syntaxe 

L'appel de la routine se fait par le 
biais d'une indirection dans la routine 
CHRGET ($B1), utilisee par l'inter- 
preteur Applesoft pour lire les carac- 
teres d'un programme. 
Le crochet fermant (]) servira de ca- 
ractere d' identification des instruc- 
tions de transfert de tableaux. C'est 
lui qui indiquera a la routine si l'ins- 
truction la concerne ou si la main 
doit etre rendue a l'Applesoft. En 
outre, pour assurer un fonctionne- 
ment correct, le ] doit toujours etre 
precede de deux points (:) dans une 
ligne de programme, meme s'il se 
trouve en tout debut de ligne. 
Par ailleurs, la definition prealable 
des deux tableaux (par DIM ou di- 
mension par defaut) est indispensa- 
ble pour 1'emploi des instructions ci- 
dessous. 

Copie pure 
et simple 

• :]S T1,T2 

• :]S T1%,T2% 

• :]S T1$,T2$ 

Tous les octets composant le contenu 
de Tl (stockes dans la zone reservee 
aux variables dimensionnees) sont 
recopies a l'identique aux adresses 
correspondent au contenu de T2. 
Les deux tableaux doivent etre exac- 
tement de meme taille (meme nom- 
bre de dimensions et meme nombre 
d'elements par dimension). II s'agit 
done d'effectuer un MOVE de la 
zone de memoire definissant Tl dans 
celle allouee a T2. 

Pour les tableaux de reels ou d' en- 
tiers (Tl ou Tl%), l'instruction ]S 



realise en T2 ou T2% une copie to- 
talement independante de l'original, 
puisque c'est la valeur effective de 
chaque element qui se trouve sto- 
ckee dans la zone des tableaux. On 
peut ainsi, par exemple, modifier en- 
suite la valeur de T2%(4) sans alterer 
pour autant celle de Tl%(4), et reci- 
proquement. 

Pour les tableaux de chaines de ca- 
racteres, en revanche, ce ne sont pas 
les chaines elles-memes qui sont sto- 
ckees dans la zone des tableaux, 
mais leurs longueurs et leurs adres- 
ses. Par "]S Tl$, T2$", on copie 
done en T2$ les parametres definis- 
sant les chaines de Tl$, reliant ainsi 
une meme chaTne a deux tableaux 
differents, sans rendre la copie inde- 
pendante de l'original. Si Ton modi- 
fie alors le contenu de Tl$(10), par 
exemple, on change celui de 
T2$(10) qui reste automatiquement 
identique a Tl$(10), et reciproque- 
ment. 

Ce type de manipulation presente 
l'avantage de ne pas encombrer la 
memoire avec des duplicatas de 
chaines lorsqu'ils ne sont pas reelle- 
ment utiles. C'est notamment le cas 
pour une routine Applesoft d'affi- 
chage ou d' impression de tableaux 
alphanumeriques, appelee en plu- 
sieurs endroits d'un programme par 
GOSUB pour traiter des tableaux dif- 
ferents (voir a ce propos 1' exemple 
simplifie donne en premiere illustra- 
tion dans le programme de demons- 
tration liste en fin d'article). 
Toutefois, il faut se mefier alors des 
routines de nettoyage - memoires qui 
ne sont pas prevues pour traiter le 
cas de chaines adressees dans deux 
variables distinctes et donnent des re- 
sultats incoherents. En consequence, 
il convient de toujours detruire le du- 
plicata apres usage, au moyen de la 
routine DIM.VAR.OBJ du Pom's 12, 
dont le code objet est fourni en an- 
nexe (instruction &Nom du tableau). 

Copie et duplication 
des chaines 

• :]DT1$,T2$ 

Meme traitement initial que ci-dessus. 
Les chaines de Tl$ sont ensuite co- 
piees, en un autre endroit de la me- 
moire libre, et affectees a T2$ qui 
devient ainsi independant de Tl$. 
Au prix d'un encombrement me- 
moire en rapport, on realise alors 
une veritable copie de l'original et de 
ses valeurs, du meme type que celle 
obtenue par des instructions T2$ (...) 
= Tl$ (...). 

La encore, Tl$ et T2$ doivent etre 
de meme taille. 



Copie de dimension 

• :)TTl,T2,i,j,..,/,x,y,..,/ 

• :]TTl%,T2%,i,j,..,/,x,y,..,/ 

• :]TTl$,T2$,i,j,..,/,x,y,..,/ 

L'instruction JT permet de copier les 
valeurs de tous les elements de la di- 
mension la plus profonde de Tl dans 
la dimension la plus profonde de T2, 
avec duplication des chaines s'il 
s'agit d'alphanumerique, en fonction 
de la valeur donnee pour les indices 
de niveau superieur. 
Tl et T2 peuvent n'avoir pas le 
meme nombre de dimensions, des 
lors que la dimension la plus pro- 
fonde de T2 comporte un nombre 
d'elements superieur ou egal a celui 
de la dimension equivalents de Tl. 

Exemples 

10. DIM A(10,5,30),B(30) 
20:]T A,B,2,3,/,/ 

Copie les valeurs de A(2, 3, 0) a 
A(2, 3, 30) en B(0) a B(30) 

10 DIM comme ci-dessus 
20:]T B,A,/,8,3,/ 

Copie les valeurs de B(0) a B(30) en 

A(8, 3, 0) a A(8, 3, 30) 

10 DIM BB$(10,10),C$(10,10.20) 

20 :]T BB$.C$,4,/,2,5,/ 

Copie de BB$(4, 0) a BB$(4, 10) en 

C$(2, 5, 0) a C$(2, 5, 10) 

La valeur des indices de niveau su- 
perieur peut egalement etre donnee 
sous forme de variables ou d' expres- 
sions numeriques (voir programme 
de demonstration). Evidemment, la 
valeur de l'indice pour la dimension 
la plus profonde n'est jamais indi- 
quee, puisque le transfert porte tou- 
jours sur tous les elements de cette 
dimension. 

Mode d'emploi 

Vous pouvez suivre une procedure 
comparable a celle donnee au debut 
du programme de demonstration : 

- Chargement de la routine de 
transfert ST.3; 

- Chargement du fichier INTER qui 
place Indirection dans CHRGET et 
oriente sur ST.3 (d'ou la necessite de 
charger prealablement cette der- 
niere); 

- Chargement de DIM.VAR.OBJ et 
initialisation du vecteur &. 

Apres ces initialisations, vous pouvez 
utiliser sans probleme les instructions 
de transfert dans vos programmes 
Applesoft. 

Pour revenir au Basic "standard", il 
suffit de charger le petit fichier 
CHRGET, qui rend a la routine 
commencant en $B1 son aspect ini- 
tial. 
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Precisions sur 
la structure 
des tableaux 

Rappclons brievement les elements 
les plus simples, deja largement 
commentes par ailleurs, et dans le 
Pom's 12 en particulier. 

La representation d'un tableau en 
memoire commence toujours par : 

— Deux octets pour son nom. 

— Deux octets (poids faible / poids 
fort) pour le nombre total d' octets 
occupes par le tableau. 

— Un octet pour le nombre de di- 
mensions. 

— Deux octets par dimension (poids 
fort / poids faible) pour indiquer le 
nombre de ses elements. On trouve 
d'abord le nombre d' elements de la 
dimension la plus profonde et on re- 
monte ensuite jusqu'a la premiere, 
qui occupe ainsi les deux octets pre- 
cedant le contenu du premier ele- 
ment du tableau. 

Pour calculer l'adresse du premier 
element d'un tableau a N dimen- 
sions, il faut done ajouter ((2 * N) + 
5) a l'adresse du debut du tableau 
(premier caractere du nom) dans la 
zone de stockage pointee par $6B - 
$6C. 

Chacun de ces elements occupe 2 
octets (valeur entiere) dans un ta- 
bleau d'entiers, 3 octets pour des 
chaines (longueur et adresse de la 
chaine), et 5 octets pour les reels 
(format flottant compacte). 

Le probleme se complique un peu 
en ce qui concerne le mode de sto- 
ckage de ces elements, e'est-a-dire 
l'ordre dans lequel ils sont "ranges". 
Le principe consiste en un classe- 
ment hierarchise dans l'ordre crois- 
sant des indices les plus profonds. 
Prenons l'exemple d'un tableau a 4 
dimensions (A,B,C,D), dont la valeur 
des indices respectifs sera notee a, b, 
c, d. En partant du debut du tableau 
vers la fin, on trouvera les elements 



dans l'ordre suivant : 

— Tous les elements d'indice d = 0, 
avec d'abord tous ceux d' indices c = 
d = 0, parmi lesquels viennent 
d'abord tous ceux d'indices b = c = 
d = 0, en t£te desquels on trouve 
bien sur lelement d'indice a = b = c 
= d = 0. 

Cela nous donne, pour le tout debut 
du tableau et en resume, le classe- 
ment: (0,0,0,0) - (1,0,0,0) - 
(2,0,0,0) ... (A.0,0.0) - (0,1,0,0) - 
(1,1,0,0) ... (A,1,0,0) - (0,2,0,0) - 
(1,2,0,0) ... (A,2,0,0) ... (A,B,0,0) - 
(0,0,1,0) - (1,0,1,0) ... () ... (A.B,1,0) 

— (0,0,2,0) ... () ... (A,B,C,0). 

— Viennent ensuite les elements d'in- 
dice d = 1, avec la meme hierarchie 
pour les indices superieurs : de 
(0,0,0,1) a (A.0,0,1), puis (0,1.0,1) a 
(A,B,0,1), puis de (0,0,1,1) a 
(A,B,C,1). 

— Et ainsi de suite jusqu'a, enfin, la 
serie des elements d'indice d =D, de 
(0,0,0,D) a (A.B.CD). 

Tout cela n'est pas particulierement 
simple, il est vrai. mais conduit a des 
formules plus claires pour acceder 
aux elements correspondant a une 
valeur donnee des indices de niveau 
superieur et obtenir ainsi la serie des 
elements de la dimension la plus pro- 
fonde pour cette valeur. 
11 nous faut connaitre l'adresse du 
premier element appartenant a la 
serie (indice = pour la dimension 
la plus profonde) et la "distance" qui 
separe deux elements consecutifs 
dans cette serie. 

Pour l'adresse du debut de serie, le 
probleme consiste a calculer le deca- 
lage en octets qui separe le premier 
element qui nous interesse du tout 
premier element du tableau. Pour 
notre exemple de dimension 
(A,B,C,D). le premier element d'in- 
dice (a.b.c.O) se trouve a : 
D = a + (A*b) + (A*B*c) 
elements du tout premier (0,0.0,0). 
Pour convertir ce decalage en octets, 
il suffit de multiplier D par le nombre 



d'octets par element (2. 3 ou 5). En 
ajoutant ensuite ce decalage a 
l'adresse de (0,0,0,0), on obtient 
l'adresse de (a.b,c,0). 

La distance entre deux elements est 
donnee par le produit des dimen- 
sions de niveau superieur (A*B*C), 
lui-meme multiplie par le nombre 
d'octets par element. 

De facon generale, pour un tableau a 
n+1 dimensions (Dl, D2 ... ,Dn, 
Dn+1), dont chaque element occupe 
OC octets, et pour des valeurs VI, 
V2 ... Vn des indices de niveau supe- 
rieur, on obtient la serie des elements 
de la dimension la plus profonde par 
les formules : 

• Decalage en elements = D = 
VI + 

D1*V2 + 
D1*D2*V3 + 

+ + 

D1*D2*D3 ... *Dn-l*Vn 

• Decalage en octets = D*OC = 
DD 

• Adresse de l'element (VI, V2, ... 
Vn, 0) = adresse de (0, 0, ... 0. 0) 
+ DD 

• Distance entre deux elements de 
la serie = DI = 
(Dl*D2*...*Dn)*OC 

Partant de cette structure, le principe 
de la routine de copie des dimen- 
sions les plus profondes consiste a : 

• Calculer pour les tableaux Tl et 
T2 les parametres DD (puis 
l'adresse du premier element) et 
DI. 

• Transferer ensuite les elements un 
par un, en passant au suivant par 
ajout de la valeur de DI dans 1' ori- 
ginal et de celle de Dl dans la 
copie. Le nombre d'elements a 
copier est indique par la dimen- 
sion la plus profonde de Tl. 

Les informations complementaires 
sont fournies dans les commentaires 
du programme source. 



Source Big Mac 



1 ********************************* 

2 * * 

3 » COPIE RAPIDE DE TABLEAUX * 

4 » CODE = ST. 3 * 

5 * * 

6 ********************************* 

7 * 

8 ORG *8DE0 

9 01 = *EE ; VARIABLES 

DE LA MULTIPLICATION 

10 02 = *EF ;02-01 <PO 

IDS FORT / POIDS FAIBLE) MULTIPLIE 
PAR M2-M1 

11 SI = *F9 ;AVEC RESU 

LTAT DANS S4-S3 

12 S2 = *FA ; ET COPIE 

DE 02-01 DANS S2-S1 

13 Ml = *FC 

14 M2 = *FD 
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15 S3 

16 S4 
17 

•§■ 

18 
19 
20 

21 KS3 

22 KS1 

23 KS0 
24 

25 
26 

27 SS0 

28 

29 

30 KS2 
31 

32 SD 
33 

34 SR 
35 



CMP 

BEQ 
CMP 
BCC 
RTS 
JMP 
JSR 
CMP 
BNE 
.IMP 
CMP 
BNE 
JMP 
CMP 
BNE 
JSR 
JMP 
JSR 
JSR 



*FE 
*FF 
£*5D 

KS0 

£*3A 

KS1 

♦ BE 
*B1 

£'T' 

SS0 

TT0 

£'D' 

KS2 

KS4 

£'S' 

KS3 

SR 

KS5 

SB1 

*F7D9 



; CARACTERE 



; RECHERCHE 



8 





DE TABLEAU 


POINTE PAR 


*B8-*B9 


97 


ADC 


£5 




36 


LDA 


*9B 


;*9B-*9C P 


98 


BCC 


TO 






OINTE SUR LE 


NOM DU TABLEAU 


99 


INC 


*CF 




37 


STA 


*6 




100 


CLC 






38 


LDA 


*9C 




101 


TO ADC 


*CE 


;REMIS EN 


3? 


STA 


*7 






*CE-*CF (DEBUT + (NBRE 


DIM * 2) + 


40 


LDY 


£0 






5) 






41 


LDA 


(*B8> ,Y 




102 


STA 


*CE 




42 


CMP 


£*2C 




103 


BCC 


Tl 




43 


BNE 


KS3 




104 


INC 


*CF 




44 


JSR 


*B1 




105 


Tl JSR 


TR 




45 


JSR 


♦ F7D9 


; RECHERCHE 


106 


JMP 


T4 






DU 2EME TABLEAU 




107 


TR LDY 


£2 




46 


RTS 






108 


LDA 


(*CE) ,Y 


;POIDS FOR 


47 


KS5 CLC 








T DE L'ADRESSE DE LA CHAINE 


48 


LDA 


*6 




109 


STA 


*8 




4? 


ADC 


£4 


;ON FAIT L 


110 


DEY 








E "MOVE" A PARTI R DU N OMBRE DE DIM 


111 


LDA 


(*CE> ,Y 


;POIDS FA I 




ENS IONS 








BLE DE L'ADRESSE DE LA 


CHAINE 


50 


STA 


*3C 




112 


TAX 






51 


LDA 


♦ 7 




113 


DEY 






52 


ADC 


£0 




114 


LDA 


♦ 70 


;*6F-*70 E 


53 


STA 


*3D 






T *71-*72 = 


ADRESSE CONTENUE EN *6 


54 


LDY 


£2 


;NBRE OCTE 




F-*70 






55 


LDA 


(*6> ,Y 


115 


STA 


♦ 72 


;MOINS LON 




TS DU TABLEAU -5 (POUR 


CALCUL FIN 




GUEUR DE LA 


CHAINE 






MOVE) 






116 


LDA 


*6F 




54 


SEC 






117 


SEC 






57 


SBC 


£5 




118 


SBC 


(*CE) ,Y 




58 


STA 


*8 




119 


STA 


*71 




5? 


I NY 






120 


STA 


*6F 




60 


LDA 


(*6> ,Y 




121 


BCS 


T2 




61 


SBC 


£0 




122 


DEC 


*72 




62 


STA 


*9 




123 


DEC 


♦ 70 




63 


CLC 






124 


T2 LDA 


(*CE) ,Y 




64 


LDA 


*3C 


jCALCUL AD 


125 


LDY 


*8 






RESSE DE FIN 


DU "MOVE" 


126 


JSR 


*E5E2 


; DEPLACE L 


65 


ADC 


*8 






A CHAINE POINTEE PAR X 


-Y 


66 


STA 


♦ 3E 




127 


LDY 


£2 


; EN POSITI 


67 


LDA 


*3D 






ON POINTEE PAR *71-*72 




68 


ADC 


*9 




128 


LDA 


♦ 70 




69 


STA 


*3F 




129 


STA 


(*CE) ,Y 


;MAJ NOUVE 


70 


CLC 








LLE ADRESSE 


CHAINE DANS 2EME TAB ( 


71 


LDA 

U TRANSFERT 


*9B 

(TABLEAU 2) 


jADRESSE D 


130 


T2> 

DEY 






72 


ADC 


£4 




131 


LDA 


*6F 




73 


STA 


*42 




132 


STA 


(*CE) ,Y 




74 


LDA 


*9C 




133 


RTS 






75 


ADC 


£0 




134 


T4 LDA 


*CE 


; CALCUL AD 


76 


STA 


♦ 43 






RESSE ELEMENT SUIVANT 


3'IL EXISTE 


77 


LDY 


£0 




135 


CLC 






78 


JSR 


4FE2C 


;M V E 


136 


ADC 


£3 




79 


JSR 


*B7 


137 


STA 


*CE 




80 


RTS 






138 


BCC 


T3 




81 


KS4 JSR 


SD 


:COPIE DES 


139 


INC 


*CF 






C HAINES — > 


MOVE COMPLET DANS UN 


140 


T3 LDA 


*CF 






1ER TEMPS 






141 


CMP 


*7 


jARRIUE A 


82 


LDA 


*9B 






LA FIN DU TABLEAU 




83 


STA 


*CE 




142 


BNE 


Tl 




84 


LDY 


£2 




143 


LDA 


*CE 




85 


CLC 






144 


CMP 


*6 




86 


ADC 


(*9B> ,Y 




145 


BNE 


Tl 




87 


STA 


*6 


;*6-*7 = A 


146 


JSR 


*B7 






DRESSE FIN DU TABLEAU + 


1 


147 


RTS 




88 


LDA 


*9C 


; (ADRESSE 


148 


TTO JSR 


SR 


; RECHERCHE 




TABLEAU ♦ SON NOMBRE D' 


OCTETS) 




DES DEUX TABLEAUX Tl 


ET T2 


89 


STA 


*CF 




149 


LDA 


*9B 




90 


I NY 






150 


STA 


*CE 




91 


ADC 


(*9B> ,Y 




151 


LDA 


*9C 




92 


STA 


*7 




152 


STA 


*CF 




93 


LDY 


£4 


; CALCUL DE 


153 


LDA 


£5 






L'ADRESSE DU 1 ER ELEMENT DU TABLE 


154 


STA 


♦ BD 


: CALCUL DU 




AU 








NBRE D' OCTETS PAR ELEMENT (5, 3 


94 


LDA 


(*CE> ,Y 






U 2) 






95 


ASL 






155 


LDY 


£1 




96 


CLC 






156 


LDA 


(*6> ,Y 
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1 57 


BPL 


TTOO 


216 


STY 


*EB 


1 58 

1 J 7 

160 


LDA 

O 1 1-1 

DEY 


£3 


217 
218 


STY 

TT10 LDA 


♦ EC 

Dl ,X jVERIFIE V 


161 


LDA 


<*6) ,Y 




ALEUR DE L' INDICE < NBRE ELEMENTS 


162 


BPL 


TTOO 




DANS LA DIM 




163 


DEC 


♦ BD 


21? 


CMP 


(♦6) ,Y 


164 


TT00 LDY 


£5 


220 


BCC 


TT6 


165 


LDA 


(♦6) ,Y ;VERI FI E : 


221 


BEQ 


TT7 




DIM LA PLUS 


PROFONDE DE T2 


222 


TT8 JMP 


TT2 


166 


STA 


*D7 ;SUP. OU E 


223 


TT7 I NY 






GAL A DIM LA 


PLUS PROFONDE DE Tl 


224 


DEX 




167 


LDA 


(«CE) ,Y 


225 


LDA 


Dl ,X 


168 


CMP 


*D7 


226 


CMP 


( »6P , T 


16? 


BEQ 


TT1 


227 


BCS 


TTO 

1 1 is 


170 


BCS 


TT100 


228 


INX 




171 


TT2 JMP 


♦ DEC? 


229 


DEY 




172 


TT1 I NY 




230 


TT £ T krv 

TT6 1 NX 




173 


LDA 


<*6) ,Y 


231 


INX 




174 


STA 


♦ D6 ;ET *D6-*D 


232 


DEY 






7=NBRE ELE. 


DANS DIM PLUS PROFONDE 


233 


DEY 






Tl 




234 


CPY 


£5 ;TOUS INDI 


175 


LDA 


<*CE) ,Y 




CES TRAITES 


? 


176 


CMP 


♦ D6 


235 


BNE 


TT10 


177 


BCC 


TT2 


236 


TT9 LDX 


£0 


178 


TT100 JSR 


TT40 


237 


STX 


♦18 ;*1 8-*l 9 = 


17? 


JMP 


TT20 




DECALAGE PREMIER ELEMENT "UTILE" 


180 


TT40 LDA 


£0 


238 


STX 


♦19 ; PAR RAPPO 


181 


STA 


*ED ; DONNERA N 




RT AU 1ER ELEMENT DU TABLEAU 




BRE DE DIM MOINS 2 EN FINAL 


239 


STX 


♦IB ;^1A-^1B = 
fTRE DEUX ELEMENTS "UTI 


182 


TT4 JSR 
RESENCE DE " 


♦ DEBE jMERIFIE P 
, ■ ET LIT CARACTERE SU 




DISTANCE EN 
LES" 




IVANT 




240 


LDA 


♦ ED 


183 


CMP 

"/" ? 


£»CB ;TOKEN DE 


241 
242 


BPL 
INX 


TT 1 1 


184 


BEQ 


TT3 


243 


STX 


♦1A ;SI 1 DIM 


185 


JSR 


♦ DD67 : EVALUE EX 




=> DECALAGE 


ET DISTANCE = 1 FOIS 




PRESSION POINTEE PAR *B8-*B? 


244 


LDA 


£7 :NBRE OCTE 


186 


JSR 


*E752 ;CONVERTIT 




TS PAR ELEMENTS 




EN ENTIER A 


2 OCTETS RANGE EN *50 


245 


JMP 


TT18 : 1 ER ELEME 




-♦51 






NT EST A 7 OCTETS DU 1 ER CARACTERE 


187 


LDA 


*ED 




DU NOM 




188 


ASL 




246 


TT11 BNE 


TT12 


18? 


TAX 




247 


LDY 


♦ EB 


1?0 


LDA 


*50 


248 


LDA 


(♦6> ,Y ;SI 2 DIM 


191 


STA 


Dl ,X jSTOCKE LA 




X ET Y, DECALAGE = INDICE x 




VALEUR DE L' INDICE 


249 


STA 


♦ IB ; ET DISTAN 


1?2 


LDA 


*51 




CE = X FOIS 


NBRE OCTETS PAR ELEMEN 


193 


INX 






T 




194 


STA 


Dl ,X 


250 


INY 




195 


INC 


*ED 


251 


LDA 


(♦6) ,Y 


196 


JMP 


TT4 


252 


STA 


♦ 1A 


197 


TT3 INC 


♦ ED ;VERIFIE N 


253 


LDA 


£9 ; 1 ER ELEME 




BRE D' INDICES / N OMBRE DE DIMENSIO- 




NT EST A 9 OCTETS DU 1 ER CARACTERE 




NS 






DU NOM 




198 


LDY 


£4 


254 


JMP 


TT18 


1?? 


LDA 


<*6) ,Y 


255 


TT 1 2 STX 


♦ 1A 


200 


CMP 


♦ ED 


256 


LDY 


♦ EC 


201 


BEQ 


TT5 


257 


LDA 


(♦6) ,Y 


202 


JMP 


TT2 


258 


STA 


02 ;NBRE ELEM 


203 


TT5 DEC 


♦ ED ; RETOUR AU 




ENTS DANS 1 ERE DIM <X> DANS 02-01 




N OMBRE D'INDICES "UTILE" 


259 


I NY 




204 


DEC 


*ED 


260 


LDA 


(♦6) ,Y 


205 


LDA 


♦ ED 


261 


STA 


01 


206 


BMI 


TT? ;1 SEULE D 


262 


TT14 DEC 


♦ EC 




IM DANS LE TABLEAU ( DONC RI EN AVAN 


263 


DEC 


♦ EC 




T /> 




264 


LDY 


♦ EC 


20 7 


LDX 


£1 


265 


LDA 


(♦6) ,Y 


208 


LDA 


<*6) ,Y 


266 


STA 


M2 ;MULTIPLIC 


20? 


TAY 






ATI ON PAR NBRE ELEMENTS DE LA DIM 


210 


DEY 






SUIVANTE 




21 1 


TYA 




267 


INY 




212 


ASL 




268 


LDA 


(♦6) ,Y 


213 


CLC 




269 


STA 


Ml 


214 


ADC 


£5 


270 


JSR 


MULT 


215 


TAY 


;Y POINTE 


271 


LDA 


S3 




SUR NBRE ELEMENTS DANS LA 1 ERE DIM 


272 


STA 


♦1A ;MAJ DU RE 
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SULTAT EN tlA-tlB 



<>7Q 
£- f J 




1 f\y\ 
LUH 










STA 


♦ IB 








LDA 


»EC 




*. / o 




CMP 


£7 




?77 

£-11 




BEQ 


TT13 


:0N ARRETE 




A L'AVANT DERNI ERE DIM 


(A 7 OCTET 




S DU 


BORD) 






?7R 




LDA 


*1A 




?79 




STA 


01 


; RESULTAT 




EN 02-01 ET 


MULT PAR DIM SUIVANTE 


oon 




LDA 


*< D 
*1D 




281 




STA 


no 
\J£ 








JMP 


III** 




OQO 
too 


TT13 


LDY 


*CD 
*tD 








STY 


*rr* 

*cL 






-01 


LDA 




■ v r\Akic no 
;X DANS 02 


■JO/ 




STA 


02 




907 




I NY 










LDA 


<*6> ,Y 




£07 




STA 


01 








LDX 


£2 


; COMMENCE 




A LA 


VALEUR 


DE L'INDICE 


POUR LA 2E 




ME DIM 






*?o 1 


TT16 


LDA 


Dl F X 




JL7 £. 




STA 


Ml 








I NX 






294 




TXA 






295 




PHA 






296 




LDA 


Dl ,X 




297 




STA 


M2 




298 




JSR 


MULT 


;MULTIPLIC 



ATI ON PAR VALEUR DE 
LA DIM SUIVANTE 



299 




CLC 




300 




LDA 


S3 


301 




ADC 


*18 




ION 


DES RESULT ATS IN 


302 




STA 


*18 


303 




LDA 


S4 


304 




ADC 


*19 


305 




STA 


♦ 19 


304 




DEC 


*EC 


307 




DEC 


*EC 


308 




LDY 


*EC 


309 




CPY 


£7 




L'AVANT DERNI ERE DIM 


310 




BEQ 


TT15 


311 


NTE 


LDA 
EN M2-M1 


<*6> ,Y 


312 




STA 


M2 


313 
314 




m 


<*6> ,Y 


315 




STA 


Ml 


316 




LDA 


SI 



L'INDICE POUR 



jACCUMULAT 



317 



318 



;ARRIVE A 



;DIM SUIVA 



;S1-S2 CON 
TIENT T0UJ0URS LE PR0DUIT DES DIM 

STA 01 ; PRECEDENT 

ES, REMIS EN 01-02 
LDA S2 



319 


STA 02 




E 


DES RESULTATS 


320 


JSR MULT 




R 


TABLEAU Tl 




321 


LDA S3 jPRODUIT D 


381 




STA 


*8 




ES DIM REMIS EN 01-02 


382 




LDA 


*7 


322 


STA 01 ;<P0UR ASS 


383 




STA 


*9 




URER SA CONSERVATION EN S1-S2) 


384 




LDA 


*1A 


323 


LDA S4 


385 




STA 


«1C 


324 


STA 02 


386 




LDA 


*1B 


325 


PLA 


387 




STA 


*1D 


326 


TAX 


388 




LDA 


*D6 


327 


I NX ; PREND UAL 


389 




STA 


*1E 




EUR DE L'INDICE SUIVANT 


390 




LDA 


*D7 


328 


JMP TT16 ;P0UR C0NT 


391 




STA 


*1F 




INUER LES MULTIPLICATIONS 


392 




LDA 


tCE 



PLACER SUR LE TOUT PREMIER ELEMENT 





DU TABLEAU 




331 




I NY 




332 




I NY 




333 




TYA 




334 


TT1 8 


CLC 




335 




ADC 


»o 


336 




STA 




337 




BCC 


TT17 


338 




INC 


A "7 


339 




CLC 




340 


TT1 7 


LDA 


tbU 


341 


IM ? 


BMI 


TT1 /l 


342 


TT170 


LDX 


tu 


343 




LDA 


Dl ,X 




LEUR 


DU 1ER 


INDI CE 


344 




ADC 


♦ 18 


345 




STA 


* 1 8 


346 




I NX 




347 




LDA 


Dl ,X 


348 




ADC 


♦ 19 


349 




STA 


*19 


350 




LDA 


£0 



;1 SEULE D 



jAJOUTE VA 



;MULTIPLIE 

DECALAGE PAR NBRE D' OCTETS PAR EL 
EMENT 



351 




STA 


02 


352 




LDA 


*BD 


353 




STA 


01 


354 




LDA 


♦ 18 


355 




STA 


Ml 


356 




LDA 


*19 


357 




STA 


M2 


358 




JSR 


MULT 


359 




CLC 




360 




LDA 


S3 


361 




ADC 


*6 




+ ADR. 


1ER ELE. - 




TILE* 






362 




STA 


*6 


363 




LDA 


S4 


364 




ADC 


*7 


365 




STA 


*7 


366 


TT171 


LDA 


£0 




DISTANCE PAR NBRE 




EMENT 






367 




STA 


02 


368 




LDA 


*BD 


369 




STA 


01 


370 




LDA 


41 A 


371 




STA 


Ml 


372 




LDA 


tl B 


373 




STA 


M2 


374 




JSR 


MULT 


375 




LDA 


S3 


376 




STA 


*1A 


377 




LDA 


S4 


378 




STA 


*1B 


379 




RTS 




380 


TT20 


LDA 


*6 



; DECALAGE 
ELEMENT *U 



jMULTIPLIE 



; SAUVEGARD 



329 
330 



TT15 



PLA 
LDY 



*EB 



;0N VA SE 



;CALCUL DE 
S PARAMETRES POUR LE SECOND TABLEA 
U T2 
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393 




STA 


*6 


394 




LDA 


*CF 


395 




STA 


*7 


396 




JSR 


*B1 


397 




JSR 


TT40 


398 




LDA 


*6 




E POUR 


COPIE 


DES 




AIRE 






399 




STA 


*CE 


400 




LDA 


♦ 7 


401 




STA 


*CF 


402 


TT25 


LDY 


£0 


403 


TT21 


LDA 


<*8) 




ELEMENT PAR 


ELEM 


404 




STA 


<*6> 


405 




INY 




406 




CPY 


*BD 


407 




BNE 


TT21 


408 




DEC 


*D6 




NBRE 


ELEMENTS A 


409 




BNE 


TT22 


410 




LDA 


*D7 


411 




BEQ 


TT23 


412 


TT22 


LDA 


*D6 


413 




CMP 


£*FF 


414 




BNE 


TT24 


415 




DEC 


*D7 


416 


TT24 


CLC 






STANCE 


DANS Tl 


417 




LDA 


*8 


418 




ADC 


*1C 


419 




STA 


*8 


420 




LDA 


*9 


421 




ADC 


♦ ID 


422 




STA 


*9 


423 




CLC 






STANCE 


DANS T2 


424 




LDA 


*6 


425 




ADC 


*1A 


426 




STA 


*6 


427 




LDA 


*7 


428 




ADC 


♦ IB 


429 




STA 


♦ 7 


430 




JMP 


TT25 


431 


TT23 


LDA 


*BD 


432 




CMP 


£3 




E C HAINES DE 


CARAC 


433 




BNE 


FIN 


434 


TT28 


JSR 


TR 



; SAUVEGARD 



;TRANSFERT 



;*D6-*D7 
TRANSFERER 



;AJOUTE DI 



jAJOUTE DI 



; TABLEAU D 

? 

; COP IE DES 



C HAINES UNE A UNE AVEC MA J DANS T 



435 




DEC 


♦ IE 




NBRE 


DE C HAINES 


436 




BNE 


TT26 


437 




LDA 


♦ IF 


438 




BEQ 


FIN 


439 


TT26 


LDA 


*1E 


440 




CMP 


£*FF 


441 




BNE 


TT27 


442 




DEC 


♦ IF 


443 


TT27 


CLC 





;*1E-*1F 

COPIER 



;AJOUTE DI 
STANCE DANS T2 POUR PASSER A LA CH 
AINE SUIUANTE 



444 




LDA 


*CE 


445 




ADC 


*1A 


446 




STA 


*CE 


447 




LDA 


*CF 


448 




ADC 


♦ IB 


449 




STA 


*CF 


450 




JMP 


TT28 


451 


FIN 


JMP 


*B1 


452 


MULT 


LDA 


01 




INE DE 


MULT I PLICA! 


453 




STA 


SI 




AR 16 


BITS / 


RESUl 


454 




LDA 


02 


455 




STA 


S2 


456 




LDA 


£0 


457 




STA 


S3 


458 




STA 


S4 


459 




LDX 


£16 


460 


BS1 


LSR 


M2 


461 




ROR 


Ml 


462 




BCC 


BS0 


463 




CLC 




464 




LDA 


01 


465 




ADC 


S3 


466 




STA 


S3 


467 




LDA 


02 


468 




ADC 


S4 


469 




STA 


S4 


470 


BS0 


ASL 


01 


471 




ROL 


02 


472 




DEX 




473 




BNE 


BS1 


474 




RTS 




475 


DI 


DS 


180 



i SOUS-ROUT 

; 16 BITS P 
SUR 16 BITS 



; ZONE DE S 
TOCKAGE DES VALEURS DES INDICES 



TEST. ST3 



1 PRINT CHR* <4)"BL0AD ST. 3": PRINT CH 
R* <4)"BLOAD INTER. 3 

5 HI MEM : 36319 

6 PRINT CHR* (4)"BL0AD DIM .UAR . OBJ" : PO 

KE 1013,76: POKE 1014,7 * 16 + 12: 
POKE 1015,9 * 16 + 2 
10 DIM A*<300) ,B*<300) ,C*<300) ,D*<300) ,E 

*(300) ,F*<300) 
12 TEXT i HOME 
20 GOTO 95 

30 FOR I = TO 300: PRINT A* < I ) : NEXT : 
GET Z*: PRINT : & A*: DIM A*(300) 
: RETURN 

95 PRINT "INITIALISATION TABLEAUX 
100 FOR I = TO 300:B*(I) = "TABLEAU B" 
+ STR* <I):C*<I) = "TABLEAU C" + 
STR* <I):D*(I) = "TABLEAU D* + 
STR* <I):E*<I) = "TABLEAU E" + ST 
R* < I > : F* < I > = "TABLEAU F" + STR* 
< I ) : NEXT 

110 PRINT : PRINT "FIN INITIALISATION": 
PRINT 
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120 :§SB*,A*: GOSUB 30:§SC*,A*: GOSUB 30: 
§SD*,A*: GOSUB 30:§SE*,A*: GOSUB 3 
0:§SF*,A*: GOSUB 30 

130 CLEAR 

135 DIM AX< 100) ,A(200) ,A*<300) ,A2X< 100) , 
A2<200) ,A2*(300) 

140 PRINT : PRINT "INITIALISATION EN COU 
RS": FOR I = TO 100:AX(I) = I :A< 
I) = 100 * I: NEXT : FOR I = 101 T 
200:A<I) = 100 » I: NEXT : FOR I 

= TO 300:A*(I) = "ELEMENT " + 
STR* < I ) : NEXT 

145 PRINT "FIN INIT* 

150 :§SAX,A2X:§SA,A2:§DA*,A2* 

170 FOR I = TO 100: PRINT AX(I),A2X(I) 
: NEXT : PRINT : GET Z* : PRINT : F 
OR I = TO 200: PRINT A< I ) ,A2< I ) : 
NEXT : PRINT : GET Z* : PRINT 

175 & AX: & A2X: & A: & A2 

177 PRINT "MODIFICATION DE A2*" : PRINT : 

FOR I = TO 300 STEP 10:A2*(I) = 
A2*< I ) + "MOD" : NEXT 

178 FOR I = TO 300: PRINT A*<I),A2*(I) 

: NEXT : PRINT 
180 tc A* : & A2* 



190 DIM Xl*<150> : DIM X2*< 2 , 2 , 1 50 ) 

200 PRINT -INITIALISATION XI*": FOR I = 

TO 150:X1*(I) = "XI* NO " + STR 

* < I ) : NEXT 
205 PRINT "FIN INIT" 

210 FOR J = TO 2: FOR Z = TO 2:STXlt 
,X2«, / ,J,Z, / : FOR I = TO 150 
: PRINT X2*< J,Z , I > , J" "Z" "I: NE 
XT : GET Z* : PRINT : NEXT : NEXT 
220 & XI*: & X2*: DIM T1X< 1 , 1 , 1 , 1 , 2 , 40 ) , 

T2X<2,2,2,50> 
230 PRINT "INITIALISATION T1X" : PRINT 



240 FOR I = TO 40 :T1X( 1,1,1,1,1,1) = 1 

00 * I : NEXT 
245 PRINT "FIN INIT 

250 FOR A = TO 2: FOR B = TO 2: FOR 
C = TO 2:§TT1X,T2X, 1 ,1 ,1 ,1 ,1 , / 
,A,B,C, / : FOR I = TO 50: PRINT 
T2X<A,B,C, I > ,A" "B" "C" "I: NE 
XT : GET Z* : PRINT : NEXT C,B,A 
270 PRINT : FOR A = TO 2: FOR B = TO 
2: FOR C = TO 2: FOR D = TO 5 
0: PRINT T2X(A,B,C,D) " ";: NEXT D 
,C,B,A 
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Les pointeurs en Pascal UCSD 



Le Pascal est un langage qui a fait 
couler beaucoup d'encre et dont on 
parle suffisamment pour eveiller Pin- 
teret de ceux qui programment. II 
presence des particularites et offre 
des possibilites de developpement 
que Ton ne trouve pas en Basic, en 
Fortran,... 

Les avis sont tres partages; certains 
pensent qu'il est reserve aux univer- 
sitaires. pendant que d'autres mettent 
au point des produits comme PFS 
ABCbase,... 

Le probleme n'est pas de trancher 
sur la valeur du Pascal mais d'en 
parler. 

La notion de pointeurs est tres speci- 
fique au Pascal. Elle est importante, 
et permet d'aller plus loin dans la 
connaissance du langage. C'est pour- 
quoi nous lui consacrons. ici, ces 
quelques lignes. 

Lcs enregistrements 

A la lecture d'un programme, ecrit 
en Pascal UCSD. vous avez sure- 
ment deja rencontre une declaration 
de TYPE dans le genre de celle qui 
suit : 

ADRESSE=RECORD 

RUE : STRING ; 

CPOS: STRING ; 

VI LLE: STRING 
END; 
ELEMENT =RECORD 

MOM: STRING; 

ADR : ADRE3SE ; 

AGE: STRING 
END; 

ainsi pour definir la ville ou habite 
Monsieur X on ecrira, dans le pro- 
gramme principal ou dans la proce- 
dure. 1' instruction d'affectation : 

ELEMENT. ADR. VILLE: = ' PARIS' ; 
La structure d'un enregistrement est 
un type (RECORD). Les elements le 
composant sont appeles : "champs", 
ils peuvent etre de types differents. 
La notion d' enregistrement est une 
notion recursive. En effet, un champ 
peut etre defini comme un enregis- 
trement (dans la declaration donnee 
ci-dessus. le champ "ADR" est un 
enregistrement dont 1'identificateur 
est "ADRESSE": les champs le 
composant sont des sous-champs). 
Les variables de type enregistrement 
sont les seules qui permettent de de- 
finir des champs dont les types sont 
differents. Dans notre exemple. nous 
considererons des champs de type 
chaine de caracteres (STRING). 

Le systeme offre a cette structure de 
nombreux avantages. 

II lui donne la possibility, grace a P in- 
duction WITH, d'alleger l'ecriture des 
affectations de chaque champ. Ainsi. 
pour definir les champs composant 
l'ertfegistrement ADRESSE on 
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ecrira : 

WITH ADRESSE DO 
BEGIN 

RUE: = '...'; 
CPOS:=',..'; 
VILLE: = '...' 
END; 

De ce fait, on evitera le prefixage de 
toutes les variables champs et done 
des erreurs de frappe, malheureuse- 
ment trop frequentes ! 
On peut aussi definir des enregistre- 
ments a champs variables. Pour ce 
faire. on utilisera I'instruction CASE 
OF; ainsi. la declaration suivante sera 
autorisee : 

GENRE= < FEM IN I N , MASCUL IN) ; 
PERSONNE=RECORD 

MOM: STRING; 
ADR. -ADRESSE: 
CASE XX: OF GENRE 
FEM ININ i STRING; 
MASCUL IN : STRING 
END 
END; 

Cette notion d'enregistrement est 
grandement liee a celle de fichiers 
tout en restant independante. En 
effet, pour creer un fichier de person- 
nes, nous aurons recours aux enre- 
gistrements pour stacker I'ensemble 
des informations les concernant. 

Les pointeurs 

En premier lieu, il est important de 
faire la difference entre les variables 
statiques et dynamiques. Une varia- 
ble declaree comme suit : 

VAR X : TYPE1; 

est une variable statique. En effet. 
lors de la compilation, le compilateur 
alloue une case memoire a la varia- 
ble X de type TYPE1. L'adresse de 
cette case memoire est fixee. 
Par opposition. I'attriburion d'une 
case memoire a une variable dyna- 
mique se fait lors de son utilisation a 
l'execution. II est a noter que les 
pointeurs traitent les variables dyna- 
miques. 

Un pointeur est une variable, il est 
associe a un type defini prealable- 
ment; c'est pourquoi on rencontre 
des pointeurs de toutes sortes : poin- 
teurs d'entiers. de caracteres. de 
booleens. de tableaux, d'enregistre- 
ments... Ainsi. on trouvera aisement 
dans les declarations d'un pro- 
gramme : 

TYPE PTR= " ELEMENT ; 

ELEMENT=RECORD 

NOM: STRING; 
PRENOM: STRING; 
DATE: STRING 
END ; 

VAR PELT : PTR ; 



Laurence Tichkowsky 

ELEMENT est un enregistrement re- 
groupant des informations comme : 
Nom, Prenom, Date de naissance, 
PTR definit des pointeurs d' ELE- 
MENT et PELT sont les variables qui 
vont pointer sur les differents enregis- 
trements. 

Pour plus de comprehension, pre- 
nons un exemple et analysons-le. 
Notre exemple sera le programme 
TRI. liste ci-apres. Celui-ci fait un tri 
alphabetique sur les noms des diffe- 
rents enregistrements stockes dans le 
fichier TRU. de type TEXT. Les 
autres types de fichier seront etudies 
ulterieurement. 

Analyse des procedures 
Procedure LIRE 

Le tableau de pointeurs d' ELEMENT 
est utile dans la mesure ou il nous 
permettra d'avoir acces aux differents 
enregistrements stockes, de fagon se- 
quentielle. dans notre fichier TRI1. 
Celui-ci n'aura pas sa raison d'etre 
lorsque nous parlerons de listes. 
Cette procedure est en fait celle qui 
nous donne la possibility de saisir les 
enregistrements afin de remplir les 
champs composant le type ELE- 
MENT. 

L'appel de la procedure standard 
NEW, dont le parametre est une va- 
riable pointeur, est tres importante. 
En effet, NEW(VP) entralne la crea- 
tion d un nouvel element, permet 
1' allocation memoire necessaire a une 
nouvelle variable et de ranger 
l'adresse memoire de I'espace alloue 
dans la variable VP. Ainsi. pour acce- 
der aux informations de ELEMENT il 
nous faudra passer par l'interme- 
diaire de VP. 

Remarque : si I' enregistrement 
comporte des champs variables il 
faudra faire NEW(VP.C1....CN); Ci 
etant les valeurs correspondant aux 
differents choix dune structure 
CASE, ils doivent etre ecrits dans 
I'ordre de la declaration. 

VP est de type PTR. lui-meme defi- 
nissant un pointeur d' ELEMENT. 
ELEMENT etant un enregistrement 
compose des champs Nom. Prenom 
et Date. Ainsi. afin de definir les dif- 
ferents champs consideres on ecrira : 

VP". NOM ou VP". PRENOM ou en- 
core VP date. VP est une variable 
statique (selon la definition donnee 
plus haut) tandis que VP est dyna- 
mique. En effet. c'est le NEW(VP) 
qui lui permet d'exister. Toutes les 
autres instructions de cette procedure 
n'ont nullement besoin d'etre detail- 
lees. 



Procedure LECTURE 

Elle appelle LIRE autant de fois qu'il 
y a d'elements a trier et definit le ta- 
bleau de pointeurs. 

Les procedures 
CLASS et ECHANGE 

La procedure CLASS effectue un tri 
BULLE. e'est-a-dire que Ton consi- 
der deux elements consecutifs du fi- 
chier, on les compare et les echange 
s'il y a lieu. Cette procedure appelle 
ECHANGE. Le temoin COMPTEUR 
nous permet de savoir quand le tri 
est termine (il est egal a quand le 
parcours de la liste n'a pas entraine 
d' echange). 



Procedure IMPRESSION 

Comme son nom l'indique. elle im- 
prime les resultats trouves, e'est-a- 
dire, la liste des noms tries. 

Les listes 

Une des contraintes du Pascal reside 
dans la declaration des tableaux. En 
effet, il est impossible de definir des 
tableaux de dimension variable. 
Ainsi. le plus souvent, on les sur-di- 
mensionne et la place memoire dis- 
ponible se trouve reduite. II serait 
done interessant d'exploiter la crea- 
tion dynamique au niveau des ele- 
ments d'un tableau. 



PROGRAM TRI < INPUT , OUTPUT ) ; 

TYPE PTR= * ELEMENT ; 

ELEMENT =RECORD 

NOM: STRING; 
PRENOM: STRING; 
DATE: STRING 
END i 

TAB=ARRAYC 1 . . I 00 ] OF PTR ; 

VAR PT:TAB; 
VP : PTR : 

N , U , COMPTEUR : INTEGER; 
TRI 1 :TEXT ; 

PROCEDURE LIRE; 

BEGIN 

NEW(VP) ; 

WRITELN( NOM :'); 
READLN(VP' .NOM) ; 
WR I TELN( TR I 1 ,VP" .NOM ) : 
WRITELN( ' PRENOM : ' ) ; 
READLN(VP _ . PRENOM ) ; 
WRITELN (TRI 1 , VP" .PRENOM) ; 
WRITELNC 'DATE DE NAISSAMCE :'); 
READLN (VP" . DATE) ; 
WRITELN (TRI 1 , VP" .DATE) 
END; 



PROCEDURE LECTURE; 
BEGIN 

WRITELN ('LA LISTE A TRIER EST :">; 
FOP N:=l TO U DO 
BEGIN 
LIRE; 
PT C N] :=VP 
END 

END; 

PPOCEDURE ECHANGE ( I : INTEGER) i 

BEGIN 

COMPTEUR : =0 ; 

VP:=PTC I J ; 

PTC I 3 :=PTC I + tl j 

PTC 1 + 1 ] :=VP; 

COMPTEUR :=1 
END; 

PPOCEDURE CLASS ; 
VAR I : INTEGER; 



BEGIN 
REPEAT 
BEGIN 

COMPTEUR :=0 ; 
FOP I :=1 TO U-t DO 
BEGIN 

IF PTC I 3 • .N0M>PTC 1*1]' 
END 

END 



La structure d'un tableau etablit une 
liaison entre celui-ci et ses elements 
par 1' intermediate des indices. II faut 
done trouver une representation simi- 
laire. Cette representation est celle 
des listes. Une liste est une suite 
d'elements. crees dynamiquement, et 
relies par une structure souple reali- 
see a l'aide des pointeurs. 
Chaque element de la liste se 
compose d'un minimum de deux in- 
formations : 

• ses composantes propres. corres- 
pondent a I'element du tableau 
(entier, reel, enregistrement,...) 

• le pointeur vers I'element suivant 
de la liste. 

Le dessin ci-dessous montre un ta- 
bleau 

TAB=ARRAY(1..10] OF CHAR; 
dont les elements sont A, B, C, D, E. 
F. G et sa representation en liste. Ce 
schema, bien que tres primaire. met 
en evidence la structure d'une liste 
par rapport a celle d'un tableau. 
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Une des grandes differences entre un 
tableau et une liste reside dans Fae- 
ces aux elements. Lorsqu'il s'agit 
d'un tableau, il suffit de connaitre 
l'indice qui lui est associe; les ele- 
ments d'une liste, quant a eux. sont 
accessibles par le pointeur pointant 
sur chacun. Ainsi, pour acceder au 
3 e element il nous faut connaitre son 
pointeur. celui-ci est contenu dans le 
2 e , dont le pointeur est contenu dans 
le 1". De ce fait, le premier element 
trouve nous donnera l'adresse du se- 
cond,... 

Les elements d'une liste sont. de part 
la structure du Pascal, des enregistre- 
ments. En effet, ils se composent de 
deux (ou plus) parties de types diffe- 
rents (dans notre exemple un carac- 
tere et un pointeur). et les seules va- 
riables autorisant le melange des 
types sont les enregistrements. Ainsi, 
les elements de la liste representee 
ci-dessus seront declares comme 
suit : 

TYPE PELT= " ELT ; 

ELT= RECORD 

CAR : CHAR ; 
PTC : PELT 
END ; 

Le champ CAR contient le caractere 
et PTC contient le pointeur vers I'ele- 
ment suivant, lui-meme de type ELT. 

Comme nous l'avons precise plus 
haut, les elements d'une liste sont 
crees de fagon dynamique (allocation 
memoire au fur et a mesure de ['exe- 
cution du programme) tandis que le 
tableau est constant lors de la compi- 
lation. 

Revenons a l'acces aux elements de 
la liste. II a ete dit, precedemment. 
qu'il faut connaitre le premier ele- 
ment de la liste pour acceder aux 
suivants. De ce fait, un pointeur de 
debut de liste est indispensable; par 
convention, le pointeur du dernier 
element de la liste sera NIL. Lors de 
Pom's n° 17 



UNTIL COMPTEUR=0 
END; 

PROCEDURE IMPRESSION; 
VAR I : INTEGER ; 
BEGIN 

URITELN (TRIl.'LA LISTE TRIEE EST :'); 
FOP I :=I TO U DO 
BEGIN 

VP:=PTt I J : 

WRITELN (VP" .NOM) ; 

URITELN (TRI 1 ,VP* .NOM ) : 

WRITELN (VP* .PRENOM; ; 

WRITELN (TRI 1 , VP" . PRENOM ) ; 

WPITELN < VP" . DATE) ; 

WRITELN '.TRI 1 ,VP" . DATE i 
END 

END ; 



(****•#*••»*•***•*#**«*****«*•******#•) 
(# DEBUT DU PROGPAMME *) 

<* PRINCIPAL #> 



BEGIN 

REWRITE (TRI 1 . 'TRI 1 
WPITELN ( "NQMBPE DE 
REAOLN <U) ; 
LECTURE ; 
CLASS; 

WRITELN (TRI 1 ) ; 
WRITELN CTRIl) j 
IMPRESS I ON ; 
CLOSE (TRI 1 .LOCK) 
END. 



NOM INFER I EUR A 100') 



la creation d'une liste le pointeur de 
tete sera defini et restera inchange 
tout au long du traitement; tandis le 
pointeur de fin de liste sera modifie. 
Un pointeur intermediaire est neces- 
saire a l'insertion de nouveaux ele- 
ments, de ce fait le pointeur de fin 
sera deplace en consequence. La 
structure de liste permet, avec sou- 
plesse, d'inserer et de supprimer des 
elements. Ecrivons un programme 
regroupant la creation d'une liste, 
l'insertion et la suppression d'un ele- 
ment dans celle-ci. 

Ce programme liste ci-apres cree une 
liste d'enregistrements dont les 
champs sont : 

• un nom 

• et un pointeur. 

II permet aussi d'inserer un element 
grace a la procedure INSERER. La 
procedure SUPPRIMER supprime un 
element de la liste. 

Explication du 
programme 

Creation 

Cette procedure, comme son nom 
l'indique, est celle qui permet de 
creer une liste. Au debut, la liste est 
vide; ainsi, les pointeurs de debut et 
de fin de liste sont egaux. Puis on ar- 
rive dans la boucle WHILE, par la- 



PROGRAM L I STEALPHA < INPUT , OUTPUT ) ; 

TYPE PELT- "ELEMENTS 
ELEMENT-RECORD 

NOM : STRING ; 
PTSUIV: PELT 
END; 

VAR PTDEB.PTFIN.PT I NT, POINT : PELT; 



(* PTDEB 
(« PTFIN 
(» PTINT 



POINTEUR DE DEBUT DE LISTE ») 
POINTEUR DE FIN DE LISTE *) 
POINTEUR INTERMEDIAIRE *) 



(* NECESSA I RE AU TRAITEMENT ») 

A.B.C : STRING; 
X.Y : INTEGER; 

PROCEDURE CREATION; 

BEGIN 

NEW (PTDEB) ; 

(* POUR LA CREATION DU 1 ER ELEMENT «) 
PTF I N :=PTDEB ; 

<« LISTE '.'IDE -> POINTEUR DE FIN = *) 
(« POINTEUR DE DEBUT DE LISTE *) 
WRITELN CENTRE: LE I ER NOM ">; 
REmDLN ( C) ; 

( « LECTURE DU NOM ») 

(» PAR CONVENTION L ' ARRET SE ») 

'. * FEPA PaR ENTREE D'UNE CHAINS VIDE *> 

(» ET LE POINTEUR DE FIN SERA NIL *) 

WHI LE ( C <> " ) DO 
BEGIN 

NEW (PTINT) ; 

(* CREATION D'UN NOUVEL ELEMENT ») 
PTINT' .NOM:= C; 
(* AFFECTATION DU CHAMP w) 
PTFIN" .PTSUIV:- PTINT: 

* LIAISON AVEC ELEMENT PRECEDENT ♦> 
PTFIN:— PTINT j 

(* POINTEUR DE FIN DEPLACE *) 
PTFIN" .PTSUIV:- NIL: 
REAOLN ( C 1 ; 

(* LECTURE DU PROCHAIN ELEMENT *> 
END 
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END; 



PROCEDURE LIRE: 

BEGIN 

PTINT :=PTDEB ; 

(* ON COMMENCE A LIRE DEPOTS LE DEBUT »> 

(» ON Cfl AFFICHER LES ELEMENTS DE LA LISTE ») 

(* LE TEST D' ARRET SERA LA VALEUP NIL ») 

(» DU POINTEUR DE FIN DE LISTE »> 

WHILE (PTINT" .PTSUIV <> NIL ) DO 
BEGIN 

WRITELN (PTINT" .NOM) ; 
PTINT := PTINT" . PTSUIV 
END: 

WRITELN (PTINT". NOM) 

(» NECESSA I PE POUR DE DERNIEP ELEMENT ♦) 
END; 

PROCEDURE INSERER (A : STRING.'; 

VAR L : INTEGER; 
PTANC : PELT ; 

BEGIN 

(* INITIALISATION ♦) 
PTINT :=PTDEB; 
L:»0; 

WHILE (L M) AND (PTINT <) NIL 1 DO 
BEGIN 

IF PTINT" .NOM-.A THEM BEGIN PTaNC:= PTINT; 

PTINT:=PTINT' .PTSUIV 

END 
ELSE L:=l ' 

END ; 

<* AU SORT I R DE LA BOUCLE IL FAUT TESTER *> 
(» LE RESULTAT DE La RECHERCHE *) 
<* SI OUI : ALLOCATION MEMO I RE POUR LE *) 
(♦ NOUVEL ELEMENT ET AFFECTATION DU CHAMP ») 

NEW (POINT) ; 

POINT" .PTSUIV:-PTANC" .PTSUIV; 
POINT" .NOM:=A; 
PTANC • .PTSUIV: -POINT 
END; 
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quelle on definit et affecte les 
champs de chaque enregistrement. 
L'instruction NEW(PTINT), va creer 
un nouvel element de type ELE- 
MENT. Ainsi, le premier element de 
la liste existe et peut done etre initia- 
lise. Comme nous l'avons vu plus 
haut, un element de la liste n'est ac- 
cessible que par son pointeur, lui- 
meme contenu dans le champ poin- 
teur de 1' element precedent. II est 
done indispensable de relier les ele- 
ments de la liste entre eux. Cette liai- 
son est realisee par 1' instruction : 

PTFIN\PTSUIV:=PTINT; 

Ainsi, on peut deplacer le pointeur 
de fin de liste et continuer la creation 
des elements de la liste. La saisie des 
differents noms des elements de la 
liste se terminera par 1' entree (au cla- 
vier) d'une chaine vide. 

Lecture 

Cette procedure n'a nullement be- 
soin d'etre commentee. Elle permet 
l'affichage des elements de la liste. 

Inserer 

Pour inserer un element dans une 
liste, il faut determiner l'endroit de 
1'insertion. Une insertion au debut ou 
en fin de liste, ne pose pas de pro- 
bleme, il suffit de deplacer les poin- 
teurs de debut et de fin de liste. L'in- 
sertion en milieu de liste est plus 
delicate. Dans notre exemple, pour 
plus de facilite, le programme affiche 
les elements existants et vous de- 
mande apres quel nom vous desirez 
inserer le nouveau nom. Ainsi, le 
programme recherche le nom exis- 
tant, cree un nouvel element et met 
a jour les pointeurs. 

Insertion alphabetique 

Cette procedure n'est interessante 
que si la liste a trailer n'a qu'un seul 
element. Ainsi, la liste des noms sera 
triee par ordre alphabetique. Pour 
des enregistrements comportants 
d'autres champs, le tri pourra, bien 
sur, s'effectuer sur un prenom, une 
date de naissance,... 
La procedure recherche l'endroit de 
rinsertion, cree un nouvel element, 
et enfin deplace les pointeurs en 
consequence. 

Supprimer 

Cette procedure supprime un nom 
existant et deplace les pointeurs en 
consequence. 

La structure de liste apporte un plus 
au traitement, quand les elements de 
celle-ci doivent etre ranges et prele- 
ves dans un ordre bien defini. L' utili- 
sation d'une liste plutot que d'un ta- 
bleau se fait en fonction : 

• de la difficulty a connaitre la di- 
mension du tableau; 

• des differentes modifications sus- 
ceptibles d'intervenir, quant au 
nombre d'elements du tableau; 

• du nombre de manipulations a ef- 
fectuer sur les elements. ■ 



PROCEDURE SUPPRIMER (A: STRING) ; 

VAR L: INTEGER; 

BEGIN 

PTINT :=PTDEB : 
L:=0; 

WHILE CLOD AND (PTINT O NIL) DO 
BEGIN 

IF PTINT'. MOM=A THEN L:=l 
ELSE BEGIN 

POINT:=PTINT; 
PT I NT : =PT I NT * . PT3U I <J 
END : 

END; 

IF L=l THEN BEGIN 

IF PT I NT=PTDEB THEN PTDEB : = PT INT " . PTSUI V 

ELSE POINT* .PTSUIW:=PTINT- .PTSUIV 

END 

ELSE UIRITELN CLE NOM ',A,' EXISTE PAS') 

END; 



<* DEBUT DU PROGRAMME PRINCIPAL *) 
( ****»»**»*»»*»*********«*♦**♦*»».*.»*»********»##**) 

BEGIN 

CREATION: 
LIRE; 
X: = l ; 

WHILE X=l DO 
BEGIN 

WRITELN ('0- POUR SUPPRIMER'); 
WRITELN ('1- POUR INSERER '); 
WRITELN C2- RIEN FAIRE')j 
READLN <Y> ; 
CASE Y OF 
i BEGIN 

WRITELN <-N0M A SUPPRIMER'); 

READLN (A) ; 

SUPPRIMER (A) ; 

LIRE ; 
END ; 

1 : BEGIN 

WRITELN ('NOM A INSERER "); 
READLN <A> ; 
INSERER <A) ; 
LIRE; 
END; 

2 : BEGIN 

WRITELN ('VOUS VOULEZ VRAIMENT RIEN FA I RE' ) ; 
READLN (X) 
END 

END 

END 
END. 



PROCEDURE INSERER ( A , B : STRING); 

VAR L : INTEGER; 

BEGIN 

(* INITIALISATION *) 
PTINT :=PTDEB; 
L:=0 ; 

WHILE (L«l) AND (PTINT <> NIL) DO 
BEGIN 

IF PTINT" .NOM=B THEN L:=l 

ELSE PTINT:=PTINT- .PTSUIV 

END; 

(* AU SORTIR DE LA BOUCLE IL FAUT TESTER *> 
(* LE RESULTAT DE LA RECHERCHE *) 
(* SI OUI : ALLOCATION MEMO I RE POUR LE *) 
(* NOUVEL ELEMENT ET AFFECTATION DU CHAMP *) 

IF L=l THEN BEGIN 

NEW (POINT) ; 

POINT" .PTSUI'.':=PTINT- .PTSUIVj 
POINT" ,N0M:=A; 
PTINT" . PTSUI V:=P0I NT 
END 

ELSE UIRITELN CLE NOM ',B." EXISTE PAS') 

END; 
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Animations graphiques 

Alain Bellegarde 



L'ecran graphique de 1' Apple 11 per- 
met d'effectuer des animations de 
bonne qualite grace a sa definition 
de 280 par 192 points. 
L'ecran haute resolution se situe 
dans la zone memoire $2000 a 
$3FFF pour la premiere page et 
$4000 a $5FFF pour la seconde. 

Chacune des 192 lignes de l'ecran 
est constitute de 40 octets consecu- 
tifs. dont 7 bits seulement sont affi- 
ches a l'ecran. Le huitieme bit (bit de 
poids fort ou MSB) est utilise pour la 
selection des couleurs. Lorsque ce bit 
est a 1. la couleur d un point isole en 
colonne paire sera bleue alors qu'un 
point isole en colonne impaire appa- 
raftra orange. Lorsque le bit "cou- 
leur" est a 0. la couleur d'un point 
isole sera violette pour les colonnes 
paires et verte pour les colonnes im- 
paires. 

Les animations realisees sur 1' Apple 
peuvent etre classees en deux gran- 
des categories : 

• Celles utilisant les vecteurs 
"shapes" de l'Applesoft ou des 
procedures similaires. 

• Celles utilisant les blocs d'image. 

Les vecteurs shapes 

Dans ce type d'animation. les traces 
sur l'ecran sont effectues par depla- 
cement d'un vecteur unitaire "allu- 
mant" ou "eteignant" un point de 
l'ecran, c'est-a-dire mettant a 1 ou a 
l'un des 7 bits d un octet de la 
page graphique. 

Ce type de trace, defini dans le ma- 
nuel Applesoft, permet de modifier 
facilement l'echelle et I' orientation 
d'un dessin. Ces modifications sont 
presentes en Applesoft sous les 
commandes "ROT" et "SCALE". 

Par contre, 1' utilisation en est assez 
lente puisque. pour trailer un octet 
de la page graphique. il convient de 
repeter 7 fois la procedure "deplace- 
ment, mise a ou a 1 d'un octet". 

Les blocs d'image 

Le principe du bloc image est de 
sauvegarder les octets constituant un 
rectangle d'image comprenant le des- 
sin a animer. L'avantage de ce type 
d'animation reside dans sa rapidite. 
En effet. le traitement est effectue par 
octet et non par bit. ce qui permet 
de charger beaucoup plus rapide- 
ment un dessin en un endroit quel- 
conque de la page graphique. 
Par contre. il est difficile, voire im- 
possible, d'effectuer des rotations et 
des agrandissements du dessin. 



Un autre inconvenient de I'utilisation 
des blocs image est lie a I' utilisation 
de I' octet comme unite de travail. II 
s'agit des saccades obtenues dans les 
deplacements horizontaux lorsque 
Ton utilise tel quel le bloc sauve- 
garde. Cette saccade provient du fait 
que les deplacements a droite ou a 
gauche sont effectues au pas de un 
octet soit 7 bits ou 7 points de 
l'ecran. 

Un remede possible a cet inconve- 
nient consiste en I'utilisation dun 
programme decalant les bits d'un 
octet, ce qui permet de reduire les 
deplacements a un pas inferieur. 
Le programme peut etre execute soit 
au moment de chaque trace, soit 
avant le trace, les differents blocs 
modifies etant a leur tour sauvegar- 
des en memoire et utilises au mo- 
ment convenable. 

Dans le premier cas, le programme 
de deplacement des bits dans un 
octet conduit a une augmentation du 
temps de trace et annule une partie 
de l'avantage des blocs image. 
Dans le second cas, la rapidite d' exe- 
cution est maintenue. mais il- est ne- 
cessaire de disposer d'une place suf- 
fisante en memoire pour loger les 
differents blocs modifies. 

Cette derniere technique, qui porte 
en anglais le nom de "pre-shifted 
shapes" est employee par le pro- 
gramme Applesoft BLOC.BAS. qui 
utilise la routine assembleur 
BLOC. OBJ (dont le code source est 
BLOC.TXT, sous Lisa 2.5). 

Afin d'utiliser ce programme, vous 
devez disposer d'un dessin sauve 
sous forme de page graphique. et 
realise par HPLOT et consorts. II 
s'agit bien la d'un dessin standard, et 
non d'une shape qui serait inexploi- 
table pour BLOC.BAS. 
Apres avoir efface la page HGR 1, le 
cas echeant, et charge votre dessin 
de base, vous pourrez definir le pas 
de deplacement (1 a 6) et le nombre 
de blocs a inclure dans la sequence 
de deplacements (1 a 7). 

La taille du bloc peut etre donnee 
par Joystick ou clavier, en indiquant 
simplement le point haut - gauche et 
le point bas - droit du cadre dans le- 
quel sera inscrit le motif a deplacer. 
La sequence de deplacements ainsi 
constitute vous sera ensuite demon- 
tree a l'ecran et vous pourrez enfin 
l'enregistrer sur disquette. 

L'ensemble des blocs composant la 
sequence est sauve a partir de 



l'adresse $6000 selon le schema sui- 
vant : 

• $6000 : hauteur du bloc (nombre 
de lignes) 

• $6001 : largeur du bloc (en octets, 
soit 7 points) 

• $6002 : pointeurs du debut du 
premier bloc 

• $6003 : (adresse basse et adresse 
haute) 

• $6004 : pointeurs du debut du se- 
cond bloc 

• $6005 : (adresse basse et adresse 
haute) 

• ... 

• $600E : pointeurs du debut du 
7eme bloc 

• $600F 

• $6010 et suivants : octets du bloc 
image 



Utilisation de la 
sequence 

L' utilisation de la sequence creee par 
le programme BLOC.BAS est reali- 
see par 1'intermediaire du pro- 
gramme TRACE. OBJ, qui est en fait 
une version amelioree d'une partie 
du programme BLOC. OBJ. 

Les parametres necessaires a 1' execu- 
tion du trace sont : 

• le numero du bloc utilise, qui doit 
etre stocke en $FE (254) 

• les coordonnees du point haut et 
gauche du bloc sous la forme du 
numero de ligne stocke en $FC 
(252 — si on utilise une valeur 
telle que la somme numero de 
ligne et hauteur du dessin soit su- 
perieure a 192, le dessin sera 
coupe dans le bas) et le numero 
de la colonne gauche en octet (0 
a 39) stocke en $FD (253 - si on 
utilise une valeur inferieure a ou 
telle que la colonne indiquee plus 
la largeur du dessin soit superieure 
a 40. le dessin sera coupe a gau- 
che ou a droite). 



Trace avec Joystick 

Le programme TRACE. BAS utilise la 
routine precedente pour une anima- 
tion de la sequence ROBOT. BLC. 
donnee a titre d'exemple. Pour l'exe- 
cuter, il suffit de taper RUN 
TRACE. BAS et d'entrer les coordon- 
nees de depart de l'animation en re- 
ponse aux questions du programme. 
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BLOC - BAS 

10 LOMEM: 36364 

20 REM A BELLEGARDE 8/1934 
30 POKE 232,239: POKE 233 , 64 : POKE 230,3 
2: HCOLOR= 1: SCALE= 1: ROT= 0: PR 
INT CHRS (4);"BL0AD BLOC. OBJ" 
REM 1 ERE PHASE 
ONERR GOTO 60 

HOME : TEXT : VTAB 1: HTAB 13: INVERS 

E : PRINT " 1 ERE PHASE": NORMAL 
VTAB 5: PRINT " VOUS POUVEZ :" 

VTAB 8: PRINT "- 1 - CHARGER UN DESSI 
N " 

VTAB 10: PRINT "- 2 - CHARGER UN BLOC 



40 
50 
60 

70 
80 

90 

100 

1 1 

120 

130 

140 

150 

160 
170 
180 
190 

200 

210 

220 
230 

240 



250 
260 

270 



280 

290 
300 

310 
320 

330 



340 

350 
360 

370 
380 



390 
400 



VTAB 12: PRINT 

ASE SUIVANTE" 
VTAB 14: PRINT 

GE GRAPH I QUE " 
VTAB 16: PRINT 

E GRAPH I QUE" 
VTAB IS: PRINT 

RAMME" 
VTAB 21 : INPUT 

" ;CX 
IF CX < 

RINT 
IF CX = 



'- 3 - PASSER A LA PH 



- 4 - AFF I CHER LA PA 



"- 5 - EFFACER LA PAG 
"- - SORTIR DU PROG 



VOTRE CHOIX 



5 THEN VTAB 23: P 



OR CX > 
GOTO 140 
THEN HOME : END 
ON CX GOTO 130,250,470,430,440 
ONERR GOTO 240 

HOME : VTAB 1: HTAB 8: PRINT "CHARGE 
MENT D'UN DESSIN" : NORMAL : VTAB 5 

INPUT "NOM DU DESSIN A CHARGER 'C D 
ONNE LE CATALOGUE ET 'RETURN' A 

NNULE LA PROCEDURE : " )T* 

IF T* = "C" THEN PRINT CHR$ <4);"C 
ATALOG" : PRINT : GOTO 200 

IF Tt = "" THEN 60 

PRINT CHR* (4);"BL0AD " ;TS ; " , AS2000 

" : GOTO 50 
PRINT : INPUT " ERREUR TAPER 'RETURN 

' POUR CONTINUER ";T*: PRINT : GOT 

200 
ONERR GOTO 420 

HOME : VTAB 1: HTAB 8: PRINT " CHARG 

EMENT D'UN BLOC": VTAB 5 
INPUT "NOM DE LA SEQUENCE A CHARGER 

'C DONNE LE CATALOGUE ET ' RETURN 

' ANNULE LA PROCEDURE : " ;T* 

IF T* = "C" THEN PRINT CHR* <4);"C 

ATALOG" : PRINT : GOTO 270 
IF T« = " THEN 60 

PRINT CHR* (4);"BL0AD " ; T* ; " , A46000 



ONERR GOTO 320 



PRINT : INPUT 

ICHER <l/7> 
PRINT : PRINT 

AGE " : HTAB 12: PRINT 

- GAUCHE)" 



NUMERO DU BLOC A AFF 
" ;NUMX 

COORDONNEES D'AFFICH 
(POINT HAUT 



PRINT : 

79> : 
IF X < 
INPUT " Y 

X 

IF Y < OR Y 
POKE 250 



X (HAUT-GAUCHE) <0,2 



INPUT 
" ;XX 

OR X > 279 THEN 340 
(HAUT-GAUCHE) <0,191> 



> 191 THEN 360 
16: POKE 251,96: POKE 252, Y 
X: POKE 253, INT (XX / 7): POKE 25 
4.NUMX 

POKE - 16304,0: POKE - 16300,0: PO 

KE - 16297,0 
CALL 16559 



VOTRE CHOIX 



410 VTAB 21: INPUT "TAPER 'RETURN' POUR 

CONTINUER " ;T*: GOTO 50 
420 PRINT : INPUT " ERREUR TAPER 'RETURN 

' POUR CONTINUER ";TS: PRINT : GOT 

270 

430 POKE - 16304,0: POKE - 16302,0: PO 

KE - 16297,0: POKE - 16300,0: GE 

T T*: GOTO 60 
440 HOME : VTAB 5: INPUT "VOULEZ-VOUS RE 

ELLEMENT EFFACER LA PAGE GRAPH I QU 

E <0/N> ";T* 
450 IF T* < > "0" THEN 60 
460 HGR : TEXT : GOTO 60 
470 REM 2EME PHASE 
480 ONERR GOTO 490 

490 HOME : VTAB 1: HTAB 13: INVERSE : PR 

INT " 2EME PHASE": NORMAL 
50 VTAB 5: PRINT " VOUS POUVEZ :" 

510 VTAB 3: PRINT "- 1 - DEFINIR LE PAS 

ET LE NOMBRE DE BLOCS DE 

LA SEQUENCE" 
520 VTAB 11: PRINT " - 2 - RETOURNER A LA 

1 ERE PHASE" 
530 VTAB 14: PRINT "- 3 - PASSER A LA 3E 

ME PHASE" 

540 VTAB 17: PRINT " - - SORTIR DU PROG 

RAMME " 
550 VTAB 20: INPUT " 

" ;CX 

560 IF CX < OR CX > 3 THEN VTAB 20: P 

RINT : GOTO 550 
570 IF CX = THEN HOME : END 
580 ON CX GOTO 590,50,750 
590 ONERR GOTO 600 

600 HOME : VTAB 1: HTAB 8: INVERSE : PRI 
NT "DEFINITION DE LA SEQUENCE": NO 
RMAL 

610 VTAB 4: PRINT " - PAS DE LA SEQUENCE 

620 VTAB 6: PRINT " LE PAS DE LA SEQUENCE 
EST EGAL AU DEPLACEMENT ENT 

RE LES BLOCS" 
630 VTAB 9: PRINT "UN PAS = 1 EST LE PLU 
S FIN MAIS LA COULEUR DU DESS 

IN EST MODIFIEE A CHAQUE TRACE ( SA 
UF SI LE DESSIN EST NOI R/BLANC) UN 
PAS = 2 PERMET DE CONSERVER LES 
COULEURS" 

440 VTAB 15: INPUT "PAS CHOI SI <l/6> : " 
;PASX 

650 IF PASX < 1 OR PASX > 6 THEN VTAB 1 

5: PRINT : GOTO 640 
660 ONERR GOTO 670 

670 VTAB 18: PRINT " - NOMBRE DE BLOCS D 

E LA SEQUENCE" 
680 VTAB 20: PRINT "UN NOMBRE = 7 PERMET 
DE DEFINIR TOUTE LES POSSIBILIT 
ES DE DESSIN" 
690 VTAB 23: INPUT "NOMBRE DE BLOCS <l/7 

> : ";NOMBREX 
70 IF NOMBREX < 1 OR NOMBREX > 7 THEN 

VTAB 23: PRINT : GOTO 690 
710 HOME : VTAB 7: PRINT "CES PARAMETRES 
NECESS I TENT DE DISPOSER DE "j7 » 
INT (.9 + (PASX * NOMBREX) / 7) ; 
" POINTS GRAPH I QUES A LA DROITS DU 

720 VTAB 9: PRINT "DESSIN POUR PERMETTRE 

D'EFFECTUER LES DEPLACEMENTS" 
730 VTAB 12: PRINT " CETTE DISPOSITION SE 
RA VERIFIEE PAR LE PROGRAMME DANS 
LA PHASE SUIVANTE TAPER SU 

R UNE TOUCHE POUR CONTINUER " ; : GE 
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•JOT RE CHOIX 



- 16237) > 127 THEN 890 



POKE 
POKE 



- 1630 2,0: PO 

- 16300,0: HC 



T T*: GOTO 490 
740 REM SEME PHASE 
750 ON ERR GOTO 760 

760 HOME : VTAB 1: HTAB 13: INVERSE : PR 

INT " SEME PHASE": N RMA L 
770 VTAB 5: PRINT "VOUS POUVEZ : " 
780 VTAB 8: PRINT 11 - 1 - DEFINIR LE BLOC 
DE REFERENCE DE LA SEQUEN 

CE AVEC LES PADDLES" 
790 VTAB 11: PRINT "- 2 - DEFINIR LE BLO 

C DE REFERENCE DE LA SEQUENCE 
AVEC LE CLAVIER TOUCHES I, 

J,K,M ET 'RETURN' " 
80 VTAB 15: PRINT "- 3 - RETOURNER A LA 

2EME PHASE" 
810 <v>TAB 18: PRINT "- - SORTIR DU PROG 

RAMME" 
820 VTAB 22: INPUT 

» ;CX 

830 IF CX < OR CX > 3 THEN VTAB 21: P 

RINT : GOTO 820 
840 IF CX = THEN HOME : END 
850 ON CX GOTO 860,930,470 

360 POKE - 16304,0: POKE - 16302,0: PO 

KE - 16297,0: POKE - 16300,0: HC 

OLOR= 3 
870 GOSUB 1560 
880 XI = X:Y1 = Y 
890 IF PEEK < 
900 GOSUB 1560 
910 X2 = X:Y2 = Y 
920 GOTO 990 
930 POKE - 16304,0: 

KE - 16297,0: 

OLOR= 3 
940 GOSUB 1610 
950 XI = X:Y1 = Y 
960 GOSUB 1610 
970 X2 = X:Y2 = Y 
980 XDRAUI 1 AT XI ,Y1 
990 IF XI > X2 THEN TEMP 
= TEMP 

1000 IF Yl > Y2 THEN TEMP = Yl :Y1 = Y2:Y 
2 = TEMP 

1010 XDRAUI 1 AT XI ,Y1 : XDRAUI 1 AT X2.Y2 
1015 X3 = X1:Y3 = Yl :X4 = X2:Y4 = Y2 
1020 XI = XI - 1:Y1 = Yl - 5:Y2 = Y2 - 1 
1030 POKE 233, INT <.9 + (PASX * NOMBREX 
) / 7) 

1040 POKE 250,16: POKE 251,96: POKE 252, 
Yl + 1: POKE 253, <X1 + 1) / 7: POK 
E 254,1 

1050 POKE 24576, Y2 - Yl - 1: POKE 24577, 

INT ( (X2 - XI > / 7) 
1060 CALL 16510 

1070 IF PEEK (238) < > THEN POKE - 
16301,0: PRINT " ATTENTION, LA PL 
ACE PREVUE A DROITE DU DESSIN EST 

INSUFF I SANTE POUR EFFECTUER LES 
DEPLACEMENTS. PRESSER UNE TOUCHE 
POUR CONTINUER ";: GET T* 
1030 HCOLOR= 3: HPLOT XI ,Y1 TO XI ,Y2 TO 

X2,Y2 TO X2.Y1 TO XI ,Y1 
10 90 POKE - 16301,0: HOME : VTAB 21: IN 
PUT "EST-CE QUE LE BLOC CONVIENT < 
0/N> ? " ;TS 
1100 HCOLOR= 0: HPLOT XI ,Y1 TO XI ,Y2 TO 
X2,Y2 TO X2,Y1 TO XI, Yl: DRAW 1 AT 
X3.Y3: DRAW 1 AT X4,Y4: HCOLOR= 3 
: IF TS = "N" THEN TEXT : GOTO 75 


1110 IF Ti < > "0" THEN 1080 
1120 REM 4EME PHASE 



XDRAW 1 AT X2.Y2 

XI :X1 = X2:X2 



1 1 30 
1140 

1 150 
1 160 

1 1 70 

1 180 

1 190 

1200 

1210 
1220 
1230 

1240 
1250 
1260 
1 270 
1230 
1290 
1300 
1310 



1 320 

1330 
1 340 
1350 
1 360 
1370 

1380 
1390 

1400 

1410 

1420 

1430 

1440 

1 450 
1460 
1470 
14S0 



1490 



1500 

1510 
1 520 

1530 

1540 
1550 



1 560 
1570 

1580 
1590 



ONERR GOTO 1 1 40 

HOME : TEXT : VTAB 1: HTAB 13: INVE 

RSE : PRINT " 4EME PHASE": NORMAL 
VTAB 5: PRINT "VOUS POUVEZ :" 
VTAB 3: PRINT "- 1 - CREER LA SEGUE 

NCE DEFINI E" 
VTAB 11: PRINT "- 
A 3EME PHASE" 

PRINT "- 



2 - RETOURNER A L 



- SORTIR DU PRO 



VOTRE CHOIX 



END 

- 16302,0: P 

- 16297,0 



VTAB 14 

GRAMME" 
VTAB 13: INPUT 
" ; CX 

IF CX < OR CX > 2 THEN VTAB 15: 

PRINT : GOTO 1190 
IF CX = THEN HOME : 
ON CX GOTO 1230,750 
POKE - 16304,0: POKE 

OKE - 16300,0: POKE 
NOMBRE = NOMBREX: PAS = PASX 
IF NOMBRE = 1 THEN 1340 
FOR I = 2 TO NOMBRE 
CALL 16384 
FOR J = 1 TO PAS 
CALL 16450 
NEXT J 

POKE - 16301,0: HOME : VTAB 21: PR 
INT "BLOC NUMERO " ; I ; " ON CONTINUE 
<0/N> " ; : INPUT TS 
IF TS = "N" THEN 1 1 30 

NEXT I 

CALL 16334 

REM 5EME PHASE 

ONERR GOTO 1370 

TEXT : VTAB 1: HTAB 13: INVE 
PRINT " 5EME PHASE" : NORMAL 
PRINT "VOUS POUVEZ :" 
PRINT "- 1 - SAUVER LA SEQU 



HOME : 

RSE : 
VTAB 5 
VTAB 8 

ENCE CREEE" 
VTAB 1 1 : PRINT 

A 4EME PHASE" 
VTAB 14: PRINT 

A 1 ERE PHASE" 
VTAB 17: PRINT 

GRAMME " 



VTAB 21 
" ; CX 
IF CX < 

PRINT 
IF CX = 
ON CX 
ONERR 
HOME : 

GARDE 



INPUT 



'- 2 - RETOURNER A L 



'- 3 - RETOURNER A L 



'- - SORTIR DU PRO 



VOTRE CHOIX 



3 THEN VTAB 21 



OR CX > 
GOTO 1430 
= THEN HOME : END 
GOTO 1480,1130,50 
GOTO 1550 

VTAB 1: HTAB 8: PRINT " SAUVE 
D' UNE SEQUENCE" : VTAB 5 



INPUT "NOM DE LA SEQUENCE 
'C DONNE LE CATALOGUE 
N' ANNULE LA PROCEDURE : 

IF TS = "C" THEN PRINT CHR* 

CATALOG": PRINT : GOTO 1490 
I F TS = " " THEN 1 360 
FIN = 256 * PEEK <251 ) 
) :LO = FIN - 24384 
PRINT CHR* (4);"BSAVE " ,-TS ; " .A-S600 

0,L" ;LO 
GOTO 1360 

PRINT : INPUT " ERREUR TAPER 
N' POUR CONTINUER ";TS: 
TO 1490 
REM CROIX GRAPH I QUE 
X = 7 * INT <40 * ( PDL <0> / 255 "> ) 

: IF X = 230 THEN X = 279 
Y = INT (191 « < PDL <1) / 255)) 

XDRAW 1 AT X,Y: IF PEEK ( - 16287' 
< 128 THEN XDRAW 1 AT X,Y: GOTO 1570 



A SAUVER 
ET 'RETUR 
";T* 
(4):" 



PEEK (250 



' RETUR 
PRINT : GO 



Pom's n° 17 



1' 



1600 RETURN 
1610 X = 140 :Y = 90 
1620 POKE - 16368,0 
1630 XDRAW 1 AT X,Y 

1640 XDRAW 1 AT X,Y: IF PEEK ( - 16384) 

< 141 THEN 1630 
1650 IF PEEK < - 16384) = 201 THEN Y = 

Y - 1 : I F Y < THEN Y = 

1660 IF PEEK < - 16384) = 205 THEN Y = 

Y + 1: IF Y > 191 THEN Y = 191 
1670 IF PEEK ( - 16384) = 202 THEN X = 

X - 7: IF X < THEN X = 
1680 IF PEEK < - 16384) = 203 THEN X = 

X + 7: IF X > 279 THEN X = 27? 
1690 IF PEEK ( - 16384) = 141 THEN XDR 

AUI 1 AT X,Y: RETURN 
1700 GOTO 1620 



] LOAD TRACE. BAS 

1 REM TRACE. BAS 

2 REM A. BELLEGARDE 8/34 

3 HOME : TEXT : VTAB 1: HTAB 8: INVERSE 

: PRINT "ANIMATION AUEC JOYSTICK": 
NORMAL 

7 REM CHARGEMENT DE LA SEQUENCE 

8 PRINT CHR* <4);"BL0AD ROBOT. BLC" 



9 PRINT CHR* (4);"BL0AD TRACE. OBJ" 

10 VTAB 8: INPUT " COLONNE DE DEPART: ";C 

OL:T = COL 

20 UTAB 12: INPUT " L I 6NE DE DEPART : "; 
LIG 

30 VTAB 16: INPUT "BLOC DE DEPART : "; 
BLO 

40 HGR : POKE - 16302,0 

50 POKE 252, LIG: POKE 253, T: POKE 254 , BL 


60 CALL 7936 

70 X = PDL <0) :Y = PDL ( 1 ) 

80 IF X > 80 AND X < 1 60 THEN 150 

90 IF X > 159 THEN 120 

100 BLO = BLO - 1: IF BLO < 1 THEN COL = 

COL - 2:BL0 = 7:T = COL 
110 GOTO 130 

120 BLO = BLO ♦ 1: IF BLO > 7 THEN COL = 

COL + 2 :BLO = 1 :T = COL 
130 IF COL > 128 THEN COL = 128 
140 IF COL < THEN T = 256 + COL 
150 IF Y > 80 AND Y < 1 60 THEN 200 
160 IF Y > 159 THEN 190 

170 LIG = LIG - 2: IF LIG < THEN LIG = 


180 GOTO 50 

190 LIG = LIG + 2: IF LIG > 255 THEN LIG 

= 255 
200 GOTO 50 



1 


TTL 


"BLOC. TXT" 




33 




LDA 


HSTOCK 


2 


» 








34 




STA 


HAUT.X 


3 


****************************** 


35 




INC 


NUMSHA 


4 


* 






* 


36 




LDA 


HAUT 


5 


* A. BELLEGARDE 


3/84 * 


37 




STA 


TEMP3 


6 


* 






* 


38 




LDA 


LI GHAUT 


7 


****************************** 


39 




STA 


TEMP2 


8 


* 








40 


LOOP1 


LDA 


TEMP2 


9 


ORG 


$4000 






41 




LDX 


ttSOO 


10 


HBASL EPZ 


*26 






42 




LDY 


H*00 


1 1 


HBASH EPZ 


*27 






43 




JSR 


HPOSN 


12 


TEMPI EPZ 


*EB 




;VARIAB 


44 




LDY 


COLGAU 




LE TEMPORAIRE 






45 




LDX 


»-$oo 


13 


TEMP2 EPZ 


*EC 






46 




LDA 


LARGE 


1 4 


TEMP3 EPZ 


I ED 






47 




STA 


TEMPI 


15 


TEMP4 EPZ 


SEE 






48 


L00P2 


LDA 


(HBASL) ,Y 


16 


LSTOCK EPZ 


EFA 




; ADRESS 


49 




STA 


(LSTOCK, X) 




E BASSE DE 


STOCKAGE 


DU 


BLOC 


50 




I NY 




17 


HSTOCK EPZ 


*FB 




j ADRESS 


51 




INC 


LSTOCK 




E HAUTE DE 


STOCKAGE 


DU 


BLOC 


52 




BNE 


SUITE 


18 


LI GHAUT EPZ 


*FC 




; LI GNE 


53 




INC 


HSTOCK 




HAUTE DU DESSIN 






54 


SUITE 


DEC 


TEMPI 


19 


COLGAU EPZ 


*FD 




; COLONN 


55 




BNE 


L00P2 




E GAUCHE DU DESSIN 






56 




INC 


TEMP2 


20 


NUMSHA EPZ 


SFE 




;NUMERO 


57 




DEC 


TEMP3 




DU BLOC'UTILISE 






58 




BNE 


LOOP1 


21 


HA LIT EQU 
R DU BLOC 


$60 00 




jHAUTEU 


59 
60 


* 


RTS 




22 


LARGE EQU 


*6001 




; LARGEU 


61 


» ROL 


DU BLOC IMAGE 




R DU BLOC 








62 


* 






23 


HPOSN EQU 


*F41 1 






63 




LDA 


HAUT 


24 


* 








64 




STA 


TEMP3 


25 


* SAUVEGARDE 


DES OCTETS 


DU BLOC I MAG 


65 




LDA 


LI GHAUT 




E 








66 




STA 


TEMP2 


26 


* 








67 


L00P5 


LDA 


TEMP2 


27 


LDA 


NUMSHA 






68 




LDX 


8*00 


23 


ASL 








69 




LDY 


«*00 


29 


TAX 








70 




JSR 


HPOSN 


30 


LDA 


LSTOCK 






71 




LDX 


LARGE 


31 


STA 


HAUT , X 






72 




LDY 


COLGAU 


32 


I NX 








73 




CLC 
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74 


L00P3 


LDA 


< HBASL) ,Y 


75 




ROL 




76 




ROL 




77 




STA 


( HBASL ) ,Y 


78 




I NY 




79 




DEX 




80 




BNE 


L00P3 


81 




LDX 


LARGE 


82 




LDY 


COLGAU 


83 


L00P4 


CLC 




84 




LDA 


(HBASL) ,Y 


85 




ROR 




86 




BCC 


SUITE2 


87 




ORA 


a* so 


88 


SUITE2 


STA 


< HBASL ) ,Y 


89 




I NY 




90 




DEX 




91 




BNE 


L00P4 


92 




INC 


TEMP2 


93 




DEC 


TEMP3 


94 




BNE 


L00P5 


95 




RTS 




96 


* 






97 


* P03S 


I BI LITE DE DEPLACER LE BLOC IM 



AGE 



98 * 



99 




LDA 


COLGAU 


100 




ADC 


LARGE 


1 1 




STA 


TEMPI 


1 02 




DEC 


TEMPI 


103 


L00P7 


LDA 


HAUT 


104 




STA 


TEMP3 


1 05 




LDA 


LI GHAUT 


106 




STA 


TEMP2 


107 


L00P6 


LDA 


TEMP2 


108 




LDX 


t»»00 


109 




LDY 


tt«00 


110 




JSR 


HPOSN 


111 




LDY 


TEMPI 


1 1 2 




LDA 


(HBASL) ,Y 


1 1 3 




BNE 


RETOUR 


1 1 4 




INC 


TEMP2 


1 1 5 




DEC 


TEMP3 


1 1 6 




BNE 


L00P6 


117 




DEC 


TEMPI 


118 




DEC 


TEMP4 


119 




BNE 


L00P7 


120 




RTS 




121 


RETOUR 


INC 


TEMP4 


122 




RTS 




123 


* 






124 


* DESSIN 


DU BLOC IMAGE 


125 


* 






126 




LDA 


NUMSHA 


127 




ASL 




1 28 




TAX 




129 




LDA 


HAUT ,X 


130 




STA 


LSTOCK 


131 




I NX 




132 




LDA 


HAUT.X 


133 




STA 


HSTOCK 


134 




LDA 


HAUT 


135 




STA 


TEMP3 


136 




LDA 


LI GHAUT 


137 




STA 


TEMP2 


1 33 


L00P3 


LDA 


TEMP2 


139 




LDX 


«*00 


140 




LDY 


*»*0 


141 




JSR 


HPOSN 


1 42 




LDY 


COLGAU 


143 




LDX 


tt*00 


144 




LDA 


LARGE 


145 




STA 


TEMPI 



146 L00P9 

147 

148 

149 

150 

151 

152 SUITE4 
153 
1 54 
155 
1 56 
157 
158 * 
159 
160 
161 



LDA 
STA 
I NY 
INC 
BNE 
INC 
DEC 
BNE 
INC 
DEC 
BNE 
RTS 



(LSTOCK, X) 
(HBASL) ,Y 

LSTOCK 

SUITE4 

HSTOCK 

TEMPI 

L00P9 

TEMP2 

TEMP3 

L00P8 



162 



CROIX GRAPH I QUE 

HEX 01000400242020961B6F492 
END 



D00 



1 ORG *1F00 

2 ***»*«**»*»****»*»************ 

3 # * 

4 * A. BELLEGARDE 8/34 * 

5 * * 

6 *»*#*»*#*»*#***»**»«****»***** 



7 


* 






8 


HBASL 


EPZ 


*26 


9 


HBASH 


EPZ 


S27 


10 


TEMPI 


EPZ 


*EB 


1 1 


TEMP2 


EPZ 


*EC 


12 


TEMP3 


EPZ 


SED 


1 3 


TEMP4 


EPZ 


SEE 


14 


LSTOCK 


EPZ 


*FA 


15 


HSTOCK 


EPZ 


*FB 


16 


LI GHAUT 


EPZ 


4FC 


17 


COLGAU 


EPZ 


SFD 


18 


NUMSHA 


EPZ 


*FE 


19 


HAUT 


EQU 


*6000 


20 


LARGE 


EQU 


$60 01 


21 


HPOSN 


EQU 


*F41 1 


22 


» 






23 


* TRACE 


DU BLOC 


24 


* 






25 


TRACE 


LDA 


NUMSHA 


26 




ASL 




27 




TAX 




28 




LDA 


HAUT ,X 


29 




STA 


LSTOCK 


30 




I NX 




31 




LDA 


HAUT , X 


32 




STA 


HSTOCK 


33 




LDA 


HAUT 


34 




STA 


TEMP3 


35 




LDA 


LI GHAUT 


36 




STA 


TEMP2 


37 


LOOP1 


LDA 


COLGAU 


38 




STA 


TEMP4 


39 




LDA 


TEMP2 


40 




BPL 


CONT 


41 




CMP 


HI 91 


42 




BPL 


BASPAGE 


43 


CONT 


LDX 


tt*0 


44 




LDY 


HSOO 


45 




JSR 


HPOSN 


46 




LDA 


LARGE 


47 




STA 


TEMPI 


48 


L00P2 


LDY 


TEMP4 


49 




BMI 


COUPE 


50 




CPY 


tt*23 


51 




BPL 


COUPE 



TRACE 
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52 
53 
54 

55 COUPE 

56 

57 

53 



LDX H*00 
LDA <LSTOCK,X) 
STA (HBASL) ,Y 
INC TEMP4 
INC LSTOCK 
BNE SUITE 
INC HSTOCK 



5? SUITE 

60 

61 

62 

63 

64 BASPAGE 
65 



DEC TEMPI 

BNE L0QP2 

INC TEMP2 

DEC TEMPS 

BNE LOOP1 
RTS 
END 



Recapitulation 
BLOC. OBJ 

•4000 .40FE 



4000- 


A5 


FE 


OA 


AA 


A5 


FA 


9D 


00 


4008- 


60 


E8 


A5 


FB 


90 


00 


60 


E6 


4010- 


FE 


AD 


00 


60 


35 


ED 


A5 


FC 


4013- 


85 


EC 


A5 


EC 


A2 


00 


AO 





4020- 


20 


1 1 


F4 


A4 


" D 


HZ 


n n 
u u 




4023- 


01 


60 


85 


EB 


Bl 


26 


81 


FA 


4030- 


C3 


E6 


FA 


DO 


02 


E6 


FB 


C6 


4038- 


EB 


00 


Fl 


E6 


EC 


C6 


ED 


DO 


4040- 


09 


60 


AD 


00 


60 


35 


ED 


AS 


4048- 


FC 


35 


EC 


A5 


EC 


A2 


00 


AO 


40 50- 


00 


20 


1 1 


F4 


AE 


01 


60 


A4 


4053- 


FD 


IS 


Bl 


26 


2A 


2A 


91 


26 


40 60- 


C3 


CA 


DO 


F6 


AE 


01 


60 


A4 


4068- 


FD 


18 


Bl 


26 


6A 


90 


02 


09 


4070- 


80 


91 


26 


C3 


CA 


DO 


F2 


E6 


4078- 


EC 


Co 


ED 


DO 


CE 


60 


A5 


FD 


4080- 


60 


01 


60 


35 


EB 


Co 


EB 


AD 


4033- 


00 


60 


85 


ED 


A5 


FC 


85 


EC 


4090- 


A5 


EC 


A2 


00 


AO 


00 


20 


1 1 


4093- 


F4 


A4 


EB 


Bl 


26 


DO 


OD 


E6 


40A0- 


EC 


C6 


ED 


DO 


EB 


C6 


tB 


C6 


40AS- 


EE 


DO 


DC 


60 


E6 


EE 


60 


A5 


40 80- 


FE 


OA 


AA 


BD 


00 


60 


85 


FA 


40B3- 


ES 


BD 


00 


60 


35 


FB 


AD 


00 



40C0- 


60 


85 


ED 


A5 


FC 


85 


EC 


A5 


40CS- 


EC 


A2 


00 


AO 


00 


20 


1 1 


F4 


40D0- 


A4 


FD 


A2 


00 


AD 


01 


60 


85 


4003- 


E3 


Al 


FA 


91 


26 


C3 


E6 


FA 


40 E0- 


DO 


02 


E6 


FB 


C6 


EB 


DO 


Fl 


40E3- 


E6 


EC 


C6 


ED 


DO 


D9 


60 


01 


40F0- 


00 


04 


00 


24 


20 


20 


96 


IB 


40F3- 


6F 


4? 


2D 


00 


00 


00 


00 




«1F00 


1F50 


TRACE. 


OBJ 




1F00- 


A5 


FE 


OA 


AA 


BD 


00 


60 


85 


1F0S- 


FA 


E3 


BD 


00 


60 


85 


FB 


AD 


1F10- 


00 


60 


85 


ED 


A5 


FC 


85 


EC 


IF18- 


A5 


FD 


85 


EE 


A5 


EC 


10 


04 


1F20- 


C9 


BF 


10 


2C 


A2 


00 


AO 


00 


1F2S- 


20 


1 1 


F4 


AD 


1 


60 


85 


EB 


1F30- 


A4 


EE 


30 


OA 


CO 


23 


10 


06 


1F38- 


A2 


00 


Al 


FA 


91 


26 


E6 


EE 


1F40- 


E6 


FA 


DO 


02 


E6 


FB 


C6 


EB 


1F48- 


DO 


E6 


E6 


EC 


C6 


ED 


DO 


C8 


1F50- 


60 

















ROBOT. BLOC 

•6000 .60EF 

6000- 20 07 10 60 FO 60 DO 61 
6003- BO 62 90 63 70 64 50 65 



60 1 0- 


00 


00 







u u 


u U 







60 1 8- 





n n 
J u 


n n 


n n 


n n 

u u 


00 


00 


00 


60 20- 


00 


00 


uu 


n n 
u u 


n n 
u u 


n n 


nn 


7C 


6023- 


1 F 


00 


OU 


n n 
u u 


n n 
u u 


U U 


fi 4 


i c 


6030- 


00 


00 


fl fl 

00 


OU 


n n 
U u 


fl 7 
U f 


7fl 
r U 


n n 


6038- 


00 


fl fl 


fi n 

u u 




U X 


40 


00 


00 


6040- 


00 


00 





U 1 


a n 
*tu 


fl 





00 


6048- 


00 


00 


1 9 


zip 


u u 


n n 


fi n 


00 


6050- 


00 


3D 


5E 





fl fl 

u u 


n fi 
u u 


fifl 
u u 




6058- 


1 9 


4C 


n a 
u o 


fl fl 


n n 





30 


1 


60 60- 


40 


6 





n fi 


n fi 

'J u 


Tin 


fi *-i 


50 


6068- 


06 





00 


n n 
U U 




~7 n 

f u 




n a 

u o 


6070- 


00 





fl fl 


J u 


n i 

U 1 




fi A 
u o 




OU / O 


n n 

u u 





30 


1 


40 


06 


00 


00 


60 30- 


00 


30 


01 


40 


06 


00 


00 


00 


6088- 


30 


01 


40 


06 


00 


00 


00 


30 


60 90- 


01 


40 


06 


00 


00 


00 


3C 


01 


6098- 


40 


IE 


00 


00 


00 


04 


01 


40 


60A0- 


10 


00 


00 


00 


04 


01 


40 


10 


60A3- 


00 


00 


00 


00 


I 


40 


00 


00 


60B0- 


00 


00 


70 


01 


40 


07 


00 


00 


60BS- 


00 


10 


00 


00 


04 


00 


00 


00 


60C0- 


70 


7F 


7F 


07 


00 


00 


00 


00 


60C3- 


07 


70 


00 


00 


00 


00 


40 


03 


60 00- 


08 


1 


00 


00 


00 


20 


10 


04 


6003- 


02 


00 


00 


00 


70 


3F 


7E 


07 


60E0- 


00 


00 


00 


00 


00 


00 


00 


00 


60E3- 


00 


00 


00 


00 


00 


00 


00 


00 
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D'ECONOMIE 

+1CADEAU 



programmer un ordina- 
teur est devenu pour 
vous un loisir, un plaisir... une 
passion, sachez que LIST a 
ete cree pour vous. LIST 
vous aide a tirer davantage 
de votre materiel, a vous 
perfectionner dans la con- 
ception des programmes 
qui "tourneront" sur votre 
machine. LIST vous initie 
aux langages informati- 
ques et selectionne les 
meilleurs livres pour 
progresser. LIST vous 
informe de l actualite et 
vous fournit trues, as- 
tuces et idees pour 
mieux programmer.. 

VOTRE CADEAU 
Le TRANS'BASIC : 

table de conversion 
des instructions BASIC 
(24 pages - format 11,5x25 cm) 



BULLETIN D'ABONNEMENT a retourner a LIST (service Abonnei 
5, place du Colonel-Fabien - 75491 Paris Cedex 10 
Nom:__ , Prenom 



Code postal : I I I t I 1 Pays : 

Veuiile? m'abonner pour 1 numoros au prix avantageux de 160F * au lieu de 200 F et rn'adres- 
sef en cadeau LE TRANSBASIC. Je tais ainsi une economic de 40F sur le prix de vente au nu ■ 
mero Je joins mon reglement indispensaDle itbelle a I'ordre de LIST. 'Tarif France - autres 
pays nous consulter 



Bqsicium, 

|0 Basic enrichi... 

Gdrard michal Rppla U+, //a 

CeC uCiliCoirewous permaCda: 

□ GArar d«s masques ou herons 40 ou SO 
colonncs. Ces <&crans. d^finis lors de la 
progrQmmat:ion. s'Qffichent par lo simple 
commande JA. 

□ Soisir toutes les voriobles d'un ecron en 
une seule commande ]l en conCrolant le type et 
la longueur. 

□ Decopier Tecran 40 ou 60 colonnes sur 
I'imprimanCe par ]H. 

□ Faire un nettoyage memoire (garbage 
collection) Cres ropide par ]F. 

□ Gerer des messages, la reponse etant 
contrdlee. 

□ iTiqis aussi. ne soisir que Tune des variables 

affectees 6 un ecran, les afficher. les effacer. 

etc... 



Tous les fichiers source sont sur la disquette. 
(Exemple de demonstration dans le Poms 



Disquette et documentation : 150,00 F TTC franco 
(bon de commande page 74). 
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Pom's n° 17 



Initiation a l'assembleur (7) 

Gerard Michel 



Pour mettre un terme a cctte serie, 
dont l'univers impitoyable vous aura 
sans nul doute fascines, nous vous 
proposons un dcmier exercice de 
style. Une fois encore, son interet 
pratique vous paraitra quelque peu 
limite, hormis certains cas d'applica- 
tion tres specifiques, mais il nous 
fournira l'occasion d'une large reca- 
pitulation. En particulier, nous appro- 
fondirons les possibility d' interaction 
entre le Basic Applesoft et les routi- 
nes en langage machine que vous 
pourriez juger bon de lui adjoindre 
dans le cadre de vos travaux de pro- 
grammation. 

Pour preciser notre sujet, rappelons 
tout d'abord que Ton conseille sou- 
vent aux programmeurs en Applesoft 
de placer en debut de programme 
toutes les sous- routines faisant l'objet 
d'appels frequents, afin de gagner en 
vitesse lors de 1' execution. II n'est pas 
rare non plus de justifier ce conseil 
en expliquant que, lorsque l'Apple- 
soft rencontre une instruction de 
branchement du type GOTO 100, 
ou GOSUB 50, il recherche la ligne 
sur laquelle doit s'effectuer le bran- 
chement en explorant le programme 
a partir du debut jusqu'a ce qu'il ait 
trouve le bon numero de ligne. 

En fait, si le conseil est generalement 
bon, l'explication correspondante 
n'est qu'a moitie correcte. En effet, 
les concepteurs de l'Applesoft n'ont 
pas oublie de reflechir en ecrivant 
leur Basic. Ainsi, la recherche de 
ligne ne part du debut du pro- 
gramme que si le poids fort du nu- 
mero de la ligne ou Ton doit se bran- 
cher (apres conversion en 
hexadecimal, bien sur) est inferieur 
ou egal au poids fort du numero de 
la ligne dans laquelle on rencontre 
l'instruction de branchement (nu- 
mero stocke en $75-$76 par l'inter- 
preteur). Dans le cas contraire, cette 
recherche part de la ligne suivant 
celle en cours d'execution et se dirige 
vers la fin du programme. 

II en resulte que la structure sui- 
vante : 

10 a 1000 : 500 lignes de Basic 
1010 GOSUB 1030 
1020 GOSUB 1030 : GOTO 1040 
1030 : traitement quelconque 
1040 : suite du programme... 

sera plus efficace que celle-ci : 

10 a 100 : 10 lignes de Basic 

110 : traitement quelconque 

120 a 1000 : 489 lignes de BASIC 

1010 GOSUB 110 

1020 GOSUB 110 

1030 suite du programme... 



Pour examiner les choses plus en de- 
tails, reportez-vous plus loin a 1'ana- 
lyse de la routine de traitement des 
instructions GOTO, qui debute en 
$D93E. Cette routine est toujours 
utilisee, directement ou non, des 
qu'un branchement doit etre effec- 
tue, que ce soit par GOTO, GOSUB, 
ONERR ou ON... 

II est bien evident que ce probleme 
de structure ne pese significativement 
sur les performances d'un pro- 
gramme que lorsque les branche- 
ments s'averent particulierement 
nombreux et que la taille de l'ensem- 
ble est importante. Dans ce cas, il 
devient rentable de se preoccuper de 
la position des differentes routines en 
fonction de leur frequence d'appel et 
des lignes a partir desquelles elles 
sont appelees. 

Par ailleurs, on pourrait s'affranchir 
de ces problemes de structure si Ton 
stockait dans le programme l'adresse 
de la ligne a laquelle on doit se bran- 
cher et non son numero. 
Ainsi, GOSUB 1000 est memorise 
sous la forme : 
B0 31 30 30 30 

Si Ton sait que l'adresse de la ligne 
1000 dans la zone du programme est 
$20B2, si Ton peut alors stacker 
1' instruction sous la forme : 
B0 B2 20 

et faire en sorte que l'interpretation 
de GOSUB (token B0) puisse utiliser 
B2 20 pour se brancher directement 
en $20B2, peu importent alors la 
structure du programme et les en- 
droits d'ou Ton appelle cette ligne 
1000. La phase de recherche des 
lignes etant dissociee de I' execution 
du programme, les branchements se 
feront toujours a la meme vitesse, 
quelles que soient les positions relati- 
ves des points de depart et d'arrivee. 

Cest a ce type de manipulation que 
nous allons done nous attaquer, ce 
qui suppose deux categories de trai- 
tements : 

— Remplacement dans un pro- 
gramme des numeros de lignes de 
branchement par leurs adresses ef- 
fectives. 

- Adaptation de l'interpreteur Apple- 
soft pour que les instructions de 
branchement puissent utiliser directe- 
ment ces adresses. 

Calcul des 
adresses 

Notre programme Applesoft etant 
charge en memoire, il nous faut dis- 
poser d'une routine qui puisse 1' ex- 



plorer du debut a la fin, reperer les 
instructions de branchement, calculer 
les adresses des lignes correspondan- 
tes et remplacer ensuite les numeros 
de ces lignes par les adresses ainsi 
obtenues. 

Pour nous simplifier la tache, nous 
utiliserons la routine de l'Applesoft 
qui traite le GOTO pour le calcul des 
adresses. Nous en ferons done une 
breve analyse au moyen des deux 
listes ci-dessous. 



•D93ELL 












D93E- 


20 


0C DA 


JSR 


*DA0C 




D941- 


20 


A6 D9 


JSR 


«D9A6 




D944- 


AS 


76 


LDA 


.76 




0946- 


C5 


51 


CMP 


»51 




0948- 


E0 


08 


BCS 


*D955 




D94A- 


98 




TYA 






D94B- 


38 




SEC 






D94C- 


4j 


B8 


ADC 


SB8 




D94E- 


OA 


B9 


LDX 


»B9 




D950- 


90 


07 


BCC 


»D959 




D9S2- 


E8 




INX 






0953- 


B0 


04 


BCS 


•0959 




0955- 


A5 


67 


LDA 


• 67 




0957- 




68 


LDX 


• 68 




0959- 


20 


1 E 06 


JSR 


*D61E 




D95C- 


90 


IE 


BCC 


»D97C 




D95E- 


A 5 


98 


LDA 


*9B 




0960- 


E9 


1 


SBC 


£»01 




0962- 


85 


88 


STA 


*B8 




0964- 


a;-, 


9C 


LDA 


*9C 




0966- 


E9 


00 


SBC 


£*00 




D968- 


85 


89 


STA 


*B9 




D96A- 


60 




RTS 






•061 ELL 












D61E- 


AO 


01 


LDY 


£*01 




0620- 


85 


9B 


STA 


»9B 




0622- 


8 A 


9C 


STX 


*9C 




0624- 


Bl 


9B 


LDA 


(*9B) 


Y 


0626- 


F0 


IF 


BEO 


SD647 




0628- 


C8 




IMV 






D629- 


C8 




INY 






D62A- 


A5 


51 


LDA 


*51 




D62C- 


01 


9B 


CMP 


<»98) 


Y 


D62E- 


90 


18 


BCC 


*0648 




D630- 


F0 


03 


BEO 


♦ D635 




0632- 


S3 




DEY 






D633- 


DO 


09 


BNE 


SD63E 




D635- 


A 5 


50 


LDA 


*50 




D637- 


88 




DEY 






0638- 


01 


9B 


CMP 


(*98) 


Y 


D63A- 


90 


OC 


BCC 


*D648 




D63C- 


F0 


OA 


BEO 


*0648 




D63E- 


88 




DEY 






D63F- 


81 


98 


LDA 


<*9B> 


Y 


D641- 


AA 




TAX 






0642- 


8S 




DEY 






D643- 


ei 


9B 


LDA 


<*9B) 


Y 


D645- 


B0 


D7 


BCS 


• 061 E 




0647- 


1 3 




CLC 






0648- 


40 




RTS 







— Lorsqu'on arrive en $D93E. $B8- 
$B9 pointe sur le premier octet du 
numero de la ligne de branchement. 
qui est egalement contenu dans l'ac- 
cumulateur A (voir 1' Initiation a l'as- 
sembleur du Pom's 16). 

La routine en $DA0C convertit ce 
numero de ligne en hexadecimal et 
le range en $50-$51 (poids faible I 
poids fort). 

- Au retour de la routine en $D9A6, 
Y contient le nombre d' octets restant 
dans la ligne courante apres celui 
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pointe par $B8-$B9 (0 de fin dc 
ligne compris). 

- On compare ensuite le poids fort 
du numero dc ligne courante (en 
$76) avec celui du numero de la 
ligne de branchement (en $51). Si le 
premier est superieur ou egal au se- 
cond (test BCS positif), la recherche 
partira du debut du programme. 

- Si le contenu de $51 est superieur 
a celui de $76, on calcule A = ($B8) 
+ Y + 1 (notez le SEC avant ADC 
$B8), et on met dans X la valeur de 
$B9, evenruellement incrementee de 
1 si une retenue s'est degagee du 
calcul de A. On a done en A et X 
l'adresse du debut de la ligne sui- 
vante (poids faible / poids fort) et on 
passe en $D959. 

Dans le cas contraire, on met dans A 
et X l'adresse du debut du pro- 
gramme, pointee par $67-$68. 

- Sous-routine en $D61E : 

• $9B-$9C contiendra toujours 
l'adresse de debut de la ligne en 
cours d'examen. Lorsqu'on vient 
de $D959, on initialise $9B-$9C a 
l'adresse de la ligne marquant le 
debut de la recherche (debut du 
programme, ou ligne suivant celle 
qui contient ['instruction de bran- 
chement). 

• En $D624, on recupere dans A le 
poids fort de l'adresse de la ligne 
suivant celle qu'on analyse. Si 



cette valeur est nulle, on est en fin 
de programme et on saute en 
$D647, ou le CLC (C=0) permet- 
tra ensuite de generer un message 
d'erreur (numero de ligne inexis- 
tant). 

Sinon, on compare le poids fort 
du numero de ligne cherche a 
celui du numero de la ligne en 
cours. 

• Si le test BCC de $D62E est posi- 
tif, e'est qu'il y a erreur quelque 
part, puisque le mode de choix du 
debut de la recherche fait que la 
valeur de $51 est normalement 
superieure ou egale au poids fort 
du numero de la premiere ligne 
examinee, et a fortiori des lignes 
suivantes. 

• Si e'est le meme poids fort, on va 
comparer les poids faibles en 
$D635. Sinon. on va passer a la 
ligne suivante en $D63E. 

• En $D635, mSme processus pour 
les poids faibles, avec erreur ega- 
lement si le test BCC de $D63A 
est positif. 

Si le test BEQ de $D63C est posi- 
tif, on a trouve notre ligne et son 
adresse de debut est en $9B-$9C. 
Sinon. passage a la ligne suivante. 

• On va mettre en A et X l'adresse 
de la ligne suivante et reprendre la 
routine au debut. Le test BCS est 
obligatoirement positif. puisque 
Ton vient de passer sans succes 



un BCC dans le cas des poids 
forts ($D62E) comme dans celui 
des poids faibles ($D63A). 

- Au retour de $D61E, en $D95C. 
C=0 signale une erreur et on saute 
au traitement correspondant. 
Sinon, on met en $B8-$B9 l'adresse 
de la ligne trouvee et contenue en 
$9B-$9C, mais diminuee de 1 afin 
de respecter les regies d'analyse de 
l'interpreteur Applesoft (vois Pom's 
16). 

En resume, la realisation d'un bran- 
chement en Applesoft se traduit par : 

• Recherche de la ligne dont le nu- 
mero est donne apres 1' instruction 
de branchement. 

• Transfert de l'adresse de cette 
ligne dans la zone de programme 
dans le pointeur de programme 
$B8-$B9, afin que l'analyse de 
l'interpreteur reparte ensuite sur 
cette ligne (apres le RTS de 
$D96A. on arrivera sur le JMP 
$D7D2 de $D823). 

Maintenant que nous savons 
comment fonctionne la routine de 
calcul d'adresses, examinons la rou- 
tine que nous utiliserons pour l'ex- 
ploiter. 

Le programme Applesoft concerne 
etant charge en memoire. nous lan- 
cerons 1' execution de la routine dont 
le source est liste ci-dessous : 



Source Big Mac 

Programme COMPG2.S 

i 

2 

3 

4 

5 

6 

7 

8 

9 
10 
1 1 



jINITIALIS 



♦a******************************* 

* » 

* REMPLACE LES NO DE LIGNES * 
» DES BRANCHEMENTS PAR LES » 

* ADRESSES DE CES LIGNES » 

* CODE = COMPG2 « 

* * 
***##»»*»#*♦»■**»****#»**#**♦♦##«# 
« 

ORG *300 
LDA *67 
ATI ON POINTEUR DE PROGRAMME 

1 2 STA *B8 

13 LDA *68 

1 4 STA *B9 

15 S2 LDY £1 ;P0IDS FOR 

T ADRESSE LIGNE SUIVANTE = 

16 LDA <*B8>,Y 
FIN DU PROGRAMME 

17 BNE SO 

18 JMP *D43C 

19 SO STA *9 

E ADRESSE LIGNE SUIVANTE 

20 DEY 

21 LDA <*B8) ,Y 

22 STA *8 

23 LDY £2 

24 LDA <*B8) ,Y 
DE LIGNE COURANTE 

25 STA *75 

26 I NY 

27 LDA <*B8),Y 

28 STA $76 



; IMPLIQUE 



; SAUVEGARD 



;MAJ NUMER 



29 




LDA 


*88 


; PLACE *B8 




-*B9 AU DEBUT DE L' INSTRUCTI ON 


30 




CLC 






31 




ADC 


£3 




32 




STA 


«B8 




33 




BCC 


S4 




34 




INC 


*B9 




35 


S4 


JSR 


*B1 


; LECTURE C 




ARACTERE DU 


PROGRAMME 


36 




BNE 


SI 




37 


S7 


CMP 


£*3A 


j-:" ? 


38 




BEQ 


S4 


; LECTURE C 




ARACTERE SUIVANT 




39 




LDA 


*8 




40 




STA 


*B8 


; PASSE A L 




A LIGNE SUIVANTE 




41 




LDA 


*9 




42 




STA 


*B9 




43 




BNE 


S2 




44 


SI 


CMP 


£*AB 


;GOTO ? 


45 




BEQ 


S3 




46 




CMP 


£«B0 


;G0SUB ? 


47 




BEQ 


S3 




48 




CMP 


£*C4 


;THEN ? 


49 




BNE 


S4 




50 




LDY 


£1 




51 




LDA 


<*B8) ,Y 




52 




CMP 


£*3A 




53 




BCS 


S4 


jCE N' EST 




PAS UN 


NO DE 


LIGNE QUI 


SUIT "THEN" 


54 




DEY 






55 




LDA 


£*AB 




56 




STA 


(*B8) ,Y 


; REMPLACE 




■THEN" 


PAR ■ 


GOTO" 




57 


S3 


JSR 


*B1 


; LECTURE 1 



ER CHIFFRE DU NO DE LIGNE 
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JO 


LDY 


*B8 


• CAI R 1 C CA D P> 


"70 




a z 
»6 






E POINTEUR DE PROGRAMME 




—y • 

7H 


bin 


ADO 

»B8 


■ DCCTAI IDC 


*J 7 


CTV 


<t 

»o 






DfllMTCI ID PiLT 

rUIN 1 hUK Dh. 


DDnrDAIiWC 




ou 


LDY 


ADO 






LDA 


*7 




O X 


STY 


*7 




76 


STA 


*B9 




o - . 


CMP 


£*30 


i n ■ onr iruc 
$ U BUULnb 


77 


INC 


*B8 


:*B8-*B9 P 




-TROU" ? 








OINTE SUR 2EME OCTET ADRESSE LIGNE 


63 


BNE 


S5 




"70 


BNE 


S6 






JSR 


*B1 


J 1 tK L-n 1 rr 


79 


INC 


*B9 
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80 


S6 LDY 


£0 




OJ 


S5 JSR 


*B7 


; KtLHftKbt 


81 


S8 JSR 


*B1 


j LLL 1 URL U 




ACCUMULATEUR 








CTETS SUI^ANTS ADRESSE 


LIGNE 


66 


JSR 


*D93E 


■ PHI FT T MP ■ 




BEQ 


S7 


;FIN INSTR 




GOTO" DE L'APPLESOFT 






UCTION ? 




o ^ 


LDY 


£0 




83 
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S3 


;FIN DE " Q 


O D 


LDA 


*B8 






UEUE' DE NO 


DE LIGNE 




AO 

O 7 


STA 


<*6> ,Y 


; REMPLACE 


84 


LDA 


£*3A 


; REMPLACE 




NO DE LIGNE 


PAR SON ADRESSE 




CHIFFRE PAR 


■ :" 




70 


I NY 






85 


STA 


<*B8> ,Y 




71 


LDA 


*B9 




86 


BNE 


S8 




72 


STA 


<*6) ,Y 













- Lignes 11 a 14: initialisation du 
pointcur $B8-$B9 a I'adresse de 
debut du programme. 

- Lignes 15 a 18 : si le poids fort de 
I'adresse de la ligne suivante est nul. 
on est en fin de programme et on re- 
vient au Basic par un JMP $D43C. 

- Lignes 19 a 22 : on sauve 
I'adresse de la ligne suivante en $8- 
$9. 

- Lignes 23 a 28 : on met le nu- 
mero de la ligne en cours de traite- 
ment en $75-$76. 

- Lignes 29 a 34 : on met en $B8- 
$B9 I'adresse du premier octet de la 
premiere instruction de la ligne. dimi- 
nuee de 1 (a 3 octets du debut de la 
ligne). 

- Lignes 35 et 36 : lecture d un ca- 
ractere de la ligne. Si ce n'est ni ni 

on passe en SI. 

- Lignes 37 et 38: si c'est ":" 
(#$3A). on passe au caractere sui- 
vant. 

- Lignes 39 a 43 : on est en fin de 
ligne (A=0) et on passe a la sui- 
vante. 

- Lignes 44 a 47 : si c'est le token 
de GOTO (#$AB) ou celui de 
GOSUB (#$B0), on va en S3. 

- Lignes 48 et 49 : si ce n est pas 
THEN (#$C4). on retourne en S4. 

- Lignes 50 a 53 : si 1' octet qui suit 
le token de THEN n'est pas inferieur 
a #$3A. c'est qu'il ne s'agit pas du 
debut d un numero de ligne (instruc- 
tions du type THEN CC = 0). Dans 
ce cas. on retourne en S4. 

- Lignes 54 a 56 : s'il s'agit bien 
d'un THEN suivi d'un branchement. 
on remplace le token de THEN par 
celui de GOTO, afin de n'avoir en- 
suite qu'un cas a examiner dans la 
modification de l'interpreteur. Conse- 
quence : n'utilisez pas d' instructions 
redondantes "THEN GOTO'' dans 
vos programmes "source", car 
"GOTO GOTO" serait plus tard re- 
jete par l'interpreteur. 



- Lignes 57 a 61 : lecture de l'octet 
qui suit le token de I'instruction de 
branchement et sauvegarde de 
I'adresse de cet octet en $6-$7. 

- Lignes 62 a 64 : I'adresse d'une 
ligne occupe toujours deux octets, 
alors que le numero de cette ligne. 
stocke en ASCII, peut n'en prendre 
qu'un s'il est inferieur a 10. Afin de 
ne pas avoir a decaler le programme 
en memoire dans ce cas, nous adop- 
terons comme convention que, dans 
le "source" Applesoft, les numeros 
de ligne inferieurs a 10 doivent etre 
precedes de 0. On ecrira ainsi 
"GOTO 05" et non "GOTO 5". 
Cette solution n'est certes pas la plus 
elegante, mais elle simplifie et acce- 
lere la routine de calcul d'adresses. 
On regarde done ici si le premier 
octet du numero de ligne est un 
(#$30), auquel cas on doit lire le 
premier octet significant de ce nu- 
mero par un autre JSR $B1. 

- Lignes 65 et 66 : relecture du pre- 
mier octet du numero de ligne par 
JSR $B7, afin de s'assurer qu'il est 
bien charge dans A et que les indica- 
teurs du registre d'etat sont correcte- 
ment positionnes. puis appel de la 
routine GOTO qui va calculer 
I'adresse de la ligne. 

- Lignes 67 a 72 : I'adresse de la 
ligne est en $B8-$B9. On la remet a 
la place des deux premiers octets du 
numero de ligne, dont I'adresse est 
toujours contenue en $6-$7. On 
trouve done maintenant derriere le 
token de I'instruction de branche- 
ment, I'adresse de la ligne sur la- 
quelle doit se faire ledit branche- 
ment. 

- Lignes 73 a 76 : restauration du 
pointeur $B8-$B9 a I'adresse du pre- 
mier octet qui suit le token. 

- Lignes 77 a 81 . lecture du pre- 
mier octet qui suit I'adresse de la 
ligne que Ton vient de stocker dans 
le programme. 



- Ligne 82 : si l'octet en question 
est ou ":" (test BEQ positif), on a 
parcouru tous les octets residuels de 
I'ex - numero de ligne et on arrive a 
I'instruction suivante. On reprend 
done la recherche des instructions de 
branchement eventuelles. 

- Ligne 83 : normalement, ce test 
BCS ne sera positif que si l'octet lu 
par $B1 est inferieur a #$30, et plus 
precisement s'il s'agit du code de la 
virgule (#$2C). Tout autre cas rele- 
verait d une erreur de syntaxe au ni- 
veau du programme Applesoft (ins- 
tructions telles que "GOTO 100 Z = 
0", par exemple). 

Ce test vise done a traiter le cas des 
instructions du type "ON Z GOTO 
100, 200, 300". En retournant en 
S3, on va ainsi calculer les adresses 
des autres lignes de branchement 
possibles. 

- Lignes 84 a 86 : l'octet lu est cette 
fois normalement un chiffre faisant 
partie du numero de ligne initial (nu- 
meros a plus de deux chiffres). On le 
remplace par un ":" (#$3A) afin 
d'eviter les erreurs de syntaxe ulte- 
rieures lors de 1' execution du pro- 
gramme modifie. Ensuite, on va lire 
l'octet suivant pour voir si Ton est ar- 
rive ou non a la fin du numero de 
ligne. 

Lorsque cette routine a termine le 
calcul des adresses, elle vous rend la 
main en mode immediat du Basic. Si 
vous faites un LIST du programme 
desormais en memoire. vous risquez 
fort de voir apparaitre des instruc- 
tions tres exotiques. comme par 
exemple : 

GOTO HGR " ::: 
GOSUB POP :: .... 

En effet. une instruction GOTO 
10000, qui etait stockee sous la 
forme : 

AB 31 30 30 30 30 

le sera maintenant sous la forme : 
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AB 91 22 3A 3 A 3A 

si $2291 est I'adresse. moins 1. de la 

ligne 10000. 

En passant sur cette instruction, la 
routine de LIST ne pourra que deco- 
der ce qu'elle trouve et vous affi- 
chera done "GOTO HGR 
N'en soyez pas trop sutpris... 

II est evident, par ailleurs, que de 
telles instructions ne pourront etre 
executees sans probleme lors d'un 
RUN que si Ton modifie l'interpre- 
teur Applesoft en consequence. C'est 
un point delicat qu'il nous reste 
maintenant a examiner. 

Interpretation des 
branchements sur 
adresses 

Le programme Applesoft qui se 
trouve maintenant en memoire 
comporte done des instructions exoti- 
ques de branchement sur adresses 
dont il convient d'assurer Texecution. 
Depuis Pom's 16, nous savons qu'il 
est possible de placer une indirection 
dans la routine CHRGET, qui 
commence a I'adresse $B1, afin de 
constituer une "annexe" de I'inter- 
preteur, dans laquelle on peut trailer 
des instructions originales ou modifier 
le traitement correspondant aux ins- 
tructions standard. C'est encore la 
solution que nous adopterons ici 
pour la manipulation des branche- 
ments sur adresses. Ainsi. dans le cas 
present, un saut "JMP $9000" est 
implante a I'adresse $BA, et la rou- 
tine commencant en $9000 sera 
chargee de filtrer les instructions 
avant de les transmettre. eventuelle- 
ment intactes. a I'interpreteur. 

Avant d'analyser cette routine, il 
nous faut insister sur deux categories 
de problemes propres a la nature des 
operations realisees. 

- La routine CHRGET retourne I'in- 
dicateur de retenue (C) a dans le 
cas ou le caractere lu est le code 
ASCII d'un chiffre (#$30 a #$39). 
et dans ce cas seulement. L'Apple- 
soft utilise cette particularite chaque 
fois qu'il analyse des instructions qui 
doivent etre suivies d'un nombre. 
telles que GOTO 100 : apres lecture 
du premier caractere suivant le token 
de GOTO, la routine d'acquisition du 
numero de ligne ($DA0C) comporte 
des tests BCS. en retour de 
CHRGET, qui provoquent une er- 
reur s'ils sont positifs. 
Nos adresses de lignes, issues des 
calculs, comporteront inevitablement 
des octets a l'exterieur de la plage 
#$30 — #$39, qui fourniront un in- 
dicateur C=l apres leur lecture par 
CHRGET, la ou les routines standard 
de 1' Applesoft attendent C=0. 
Ceci ne pose guere de problemes 
pour l'analyse des tokens "maitres", 



comme dans l'instruction TO GOTO 
adresse". En interceptant le GOTO, 
on sait qu'il nous faut ensuite recu- 
perer I'adresse sans se preoccuper de 
la valeur du bit C et on peut contro- 
ler I'ensemble du processus. 
II n'en va pas de meme pour des ins- 
tructions du type "10 IF <condi- 
tion> GOTO adresse". Si Ton ne 
veut pas refaire ce qui existe, le trai- 
tement de IF et l'analyse de la condi- 
tion seront laisses a 1' Applesoft, evi- 
demment. et ['interpretation 
ulterieure de "GOTO adresse" se 
fera sous controle de la routine de 
IF, qui se preoccupera de la valeur 
de C au moment de lire ce qu'elle 
considere comme un numero de 
ligne et de passer la main a la rou- 
tine de GOTO. De plus, le traitement 
de IF risque fort, a un moment ou 
un autre, de lire le GOTO pour veri- 
fier que I'enonce de la condition est 
termine. Si nous interceptons alors le 
GOTO pour realiser automatique- 
ment le branchement. il n'y a plus de 
test et le IF n'est pas correctement 
execute. 

La consequence principale de ce 
probleme reside dans le fait que Ton 
ne peut pas ecrire une routine gene- 
rale d' interception des GOTOs et 
GOSUBs. basee sur le principe d'une 
interpretation prioritaire. Une telle 
routine reposerait sur une intercep- 
tion au niveau du "JSR $00B1" de 
I'adresse $D81D (voir Pom's 16). 
Etant donne que Ton ne passe pas 
en $D81D pour lire GOTO ou 
GOSUB lorsqu'ils ne sont pas tokens 
maitres. il faudrait alors intercepter 
egalement les IFs et faire en sorte 
qu'ils acceptent des branchements 
sur adresses. en bout de course, si la 
condition est satisfaite. Cela ne ferait 
qu'elargir le probleme a la modifica- 
tion du traitement d'une autre ins- 
truction, en sus des branchements. 
Pour tourner la difficulty, nous adop- 
terons une analyse a posteriori : la 
decision de branchement sera prise 
lorsque le caractere lu, avant celui 
que Ton est en train d'examiner, est 
le token d'une instruction de bran- 
chement, et dans la mesure ou le 
sommet de la pile traduit bien le fait 
que I'interpreteur travaille effective- 
ment sur une telle instruction. Enon- 
cee de la sorte, la chose paratt certes 
un peu complexe, mais elle le sera 
moins lorsque nous entrerons dans 
les details... 

- Nous tenterons de traiter ici tous 
les branchements. simples comme 
GOTO, multiples comme ON ... 
GOTO, mais aussi le ONERR 
GOTO. 

Dans ce dernier cas, il convient, 
d une part, de placer I'adresse de la 
routine Basic de ONERR a l'endroit 
idoine et, d' autre part, de recuperer 
le controle des operations lorsqu'une 
erreur se produit, ce qui suppose que 



Ton sache qu'une erreur vient de se 
produire. 

On retrouve en fait un probleme ge- 
neral au niveau de notre routine : sa- 
voir d'ou l'on vient, e'est-a-dire de 
quelle adresse a ete appelee 
CHRGET et done notre indirection 
en $9000. Comme vous pourrez le 
constater plus loin, c'est la pile du 
processeur qui nous fournira les re- 
ponses. 

Environnement 

Le fonctionnement de la routine qui 
execute les instructions ($D7D2) a 
ete detaille dans l'article precedent. 
De plus, nous avons vu plus haut 
comment procede la routine standard 
de GOTO. La routine de GOSUB 
utilise tout simplement la routine 
GOTO, mais depose au prealable au 
sommet de la pile les elements qui 
permettront au RETURN de revenir 
au bon endroit (vous n'aurez aucune 
peine a analyser la routine GOSUB, 
qui debute en $D921). Ces deux 
routines seront completement rem- 
placees par les notres dans 1' indirec- 
tion $9000. 

Pour clarifier la suite du propos, il 
peut etre bon de preciser par ailleurs 
comment fonctionnent les routines 
de IF et de ON .... et comment se 
passe la prise en charge d'une erreur 
lorsque ONERR est actif. 

Routine IF 

La petite liste ci-dessous, extraite de 
la ROM Applesoft, constitue le coeur 
de la routine de IF : 



•D9C9L 



D9C9- 


20 


73 


00 


JSR 


*DD7B 


D9CC- 


20 


87 


00 


JSR 


»00B7 


D9CF- 


C9 


AB 




CMP 


£*A8 


D901- 


F0 


09 




SEQ 


♦0908 


0903- 


A9 


C4 




LDA 


£»C4 


0905- 


20 


CO 


DE 


JSR 


SDEC0 


0908- 


A5 


90 




LDA 


»9D 


D9DA- 


DO 


05 




BNE 


SD9E1 


D9DC- 


20 


*6 


09 


JSR 


*D9A4 


D9DF- 


FO 


B7 




6EQ 


•0998 


D9EI- 


20 


B7 


00 


JSR 


*00B7 


D9E4- 


B0 


03 




BCS 


*09E9 


D9E4- 


4C 


3E 


09 


JMP 


SD93E 


D9E9- 


4C 


28 


08 


JMP 


SD828 



$DD7B est la partie la plus impor- 
tante (analyse et test de la condition) 
mais elle ne concerne pas notre 
sujet. 

Apres l'analyse du JSR $DD7B. on 
recharge en A le caractere pointe par 
$B8-$B9 (JSR $B7). qui peut etre 
GOTO (#$AB), et doit etre THEN 
(#$C4) si ce n'est pas GOTO (sinon, 
$DEC0 finira sur une SYNTAX 
ERROR. Si c'est THEN, $DEC0 per- 
mertra de lire I'octet qui suit le 
THEN). 

Si la condition n'est pas satisfaite, 
$9D contient 0. Dans ce cas, on met 
le nombre d' octets restants dans la 
ligne (apres celui pointe par $B8- 
$B9) dans Y par JSR $D9A6. Le 
dernier caractere lu par $D9A6 est le 
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de fin de ligne et le test BEQ 
amene done en $D998 qui pointe 
$B8-$B9 sur l'octet precedent la 
ligne suivante et amene au JMP 
$D7D2 de l'adresse $D823 par un 
simple RTS final. On verifie ainsi que 
"condition non satisfaite" se traduit 
en Applesoft par "passage a la ligne 
suivante". 

Si la condition est satisfaite, on arrive 
en $D9E1. On relit le caractere 
pointe par $B8-$B9 (JSR $B7), qui 
peut etre soit le token de GOTO, soit 

1 octet suivant le token de THEN 
(e'est-a-dire un autre token, le pre- 
mier chiffre d'un numero de ligne ou 
le premier caractere d'un nom de va- 
riable). Si e'est un chiffre. C=0 au 
retour de $B7. et on sort par JMP 
$D93E (THEN 100 est done bien 
traite comme GOTO 100). Si ce 
n'est pas un chiffre (C=l), on sort 
par JMP $D828; on revient done 
dans l'interpreteur comme si I'on ve- 
nait de lire une variable ou un token 
"maitre" (comme si Ton venait du 
JSR $D828 de l'adresse $D820). 

Dans notre routine de calcul d'adres- 
ses, nous avons fait en sorte de 
n'avoir plus que des instructions du 
type "IF ... GOTO adresse", qui 
aboutiront done en $D828, exacte- 
ment comme nos instructions directes 
"GOTO adresse". De meme, les ins- 
tructions " ... THEN GOSUB 
adresse" arriveront en $D828 
(comme un GOSUB simple) lorsque 
se posera le probleme de realiser le 
branchement. 

Cette breve analyse de IF montre par 
ailleurs que Ton ne pourrait effective- 
ment pas intercepter le GOTO direc- 
tement au moment ou il est lu par 
CHRGET : le JSR $B7 de l'adresse 
$D9CC, par exemple, provoquerait 
alors le branchement avant meme 
que Ton sache si la condition est sa- 
tisfaite pour justifier ce branchement. 
De plus, le fait que Ton passe par 
$B7 pour relire le token de GOTO 
prouve que $B8-$B9 pointe deja sur 
GOTO, qui a done ete lu, dans les 
traitements recouverts par JSR 
$DD7B, au moyen d'un saut a $B1. 
Les risques de branchement prema- 
ture sont ainsi fort nombreux et justi- 
fient un traitement a posteriori, via le 
passage par $D828 qui se termine. 
rappelons-le. par un JMP $B1. 

Routine de ON 

Vous trouverez ci-dessous un bref 
extrait de la routine ON : 



•D9ECL 



D9EC- 


20 


F8 


--o 


JSR 


»E6F8 


D9EF- 


48 






PhW 




09F0- 


C9 


hO 




CMP 


£*80 


D9F2- 


F0 


0-1 




BEQ 


S09F8 


D9F4- 


C9 


AB 




CMP 


£*A8 


D9F4- 


DO 


8? 




BNE 


*D98I 


D9FB- 


C6 


Al 




DEC 


»A1 


D9FA- 


DO 


04 




BNE 


«OA00 


09FC- 


63 






PLA 




D9FD- 


4C 


2A 


08 


JMP 


*D82A 



DA0 0- 


20 


81 


00 


JSR 


S00B! 


DA03- 


70 


OC 


DA 


JSR 


SDA0C 


DA06- 


C9 


2C 




CMP 


£*2C 


DA08- 


F0 


EE 




BEQ 


»D9F8 


DA0A— 


SB 






PLA 




DA08- 


60 






RTS 




DA0C- 


A2 


00 




LDX 


£»00 


DA0E- 


86 


50 




STX 


*50 


DA1 0- 


86 


51 




STX 


*5I 


DA12- 


B0 


F7 




BCS 


*DA0B 



La sous-routine appelee par JSR 
$E6F8 se charge d'evaluer l'expres- 
sion dans 1' instruction "ON <expres- 
sion> GOTO ' GOSUB". Au retour, 
la valeur concernee est stockee en 
$A1, et $B8-$B9 pointe sur le pre- 
mier octet qui suit l'expression (cet 
octet est egalement en A). 
L'octet suivant l'expression est em- 
pile. Ce peut etre le token de 
GOSUB (#$B0) ou celui de GOTO 
(#$AB); sinon : SYNTAX ERROR. 
En $D9F8. on decrements $A1. Si la 
valeur de $A1 tombe alors a 0, on 
depile le token de l'instruction et on 
retourne dans l'interpreteur en 
$D82A, e'est-a-dire, une fois encore, 
comme si Ton venait de lire GOTO 
ou GOSUB comme token "maitre". 
Ainsi, si $A1 contenait la valeur 1, 
on passe a au premier DEC $A1 et 
on saute en $D82A en pointant sur 
GOTO ou GOSUB: l'interpretation 
du token realisera alors le branche- 
ment sur le numero de ligne qui suit 
l'octet pointe par $B8-$B9 a l'entree 
dans $D82A, done le premier nu- 
mero donne dans l'instruction ON, 
ce qui est conforme aux resultats ob- 
serves lorsque vous utilisez ce type 
d' instruction. 

Si $A1 ne tombe pas a 0, on lit l'oc- 
tet suivant (JSR $B1) et on appelle 
$DA0C. Cette routine se charge 
d'evaluer le numero de ligne pointe 
par $B8-$B9 a l'entree. Elle procede 
par des JSR $B1 successifs, jusqu'a 
ce que $B1 lui retourne un C=l (ca- 
ractere lu n'est pas un chiffre). Au re- 
tour, A contient l'octet qui suit le nu- 
mero de ligne, octet par ailleurs 
pointe par $B8-$B9. 
Normalement, le separateur des nu- 
meros de ligne dans un ON est la 
virgule (#$2C). Si Ton recupere bien 
une virgule en retour de $DA0C, on 
retourne alors en $D9F8. Ainsi, si 
$A1 contenait 2 au depart, on est 
passe a 1 lors du premier DEC $A1. 
On passe done le premier numero de 
ligne et on pointe sur la premiere vir- 
gule apres JSR $DA0C. En retour- 
nant a $D9F8, $A1 tombe cette fois 
a et on saute a $D82A. Comme A 
contient le token de l'instruction 
GOTO ou GOSUB, l'analyse du 
token et le choix de la routine corres- 
pondante se fera correctement. Le 
branchement sera ensuite realise sur 
le numero de ligne qui suit l'octet 
pointe par $B8-$B9 a l'entree dans 
$D82A, e'est-a-dire le numero qui 
suit la premiere virgule. ou encore le 
second numero indique. qui corres- 
pond bien a la valeur 2 pour l'ex- 



pression de "ON <expression> ..." 
Ce processus d'avancee du pointeur 
$B8-$B9 se poursuivra ainsi toujours 
jusqu'a la virgule qui precede le nu- 
mero de ligne dont le rang dans la 
liste des numeros de ligne corres- 
pond a la valeur de l'expression. 
Par contre, si Ton ne recupere pas 
une virgule en retour de $DA0C, on 
depile simplement le token et on sort 
par RTS. Comme l'interpretation se 
fait sous le controle du JSR $D828 
de l'adresse $D820, on revient en 
$D823 qui nous renvoie en $D7D2 
pour l'analyse d'une autre instruc- 
tion. Cette situation resulte soit d'une 
valeur nulle pour "expression", soit 
d'une valeur superieure au nombre 
de numeros de ligne donnes dans la 
liste (la valeur nulle releve du meme 
principe, puisqu'on part de #$FF 
apres le premier DEC $A1). Dans ce 
cas, on a avance le pointeur $B8- 
$B9 jusqu'au premier octet qui suit 
la liste des numeros de ligne (norma- 
lement ":" ou de fin de ligne) : par 
$D7D2 on passe done a l'instruction 
ou a la ligne suivante. On verifie bien 
que, si "expression" vaut ou une 
valeur superieure au nombre d'items 
prevus, l'instruction ON "expression" 
... fait simplement passer a la suite, 
sans realiser de branchement. 
Pour memoire, notons qu'une erreur 
de syntaxe dans le ON (mauvais se- 
parateur de numeros de ligne) pro- 
voquerait egalement la sortie par 
RTS. Mais on ne serait pas alors 
dans une situation conforme pour 
$D7D2, d'ou SYNTAX ERROR. 

Dans notre indirection, nous n'inter- 
cepterons pas les "ON", afin de ne 
pas devoir refaire tout ce qui precede 
la phase de branchement propre- 
ment dite. En revanche, nous pren- 
drons la main lors du JSR $B1 de 
l'adresse $DA00, afin de depl acer 
nous-memes le pointeur $B8-$B9 et 
l'amener jusqu'a l'adresse de bran- 
chement adequate. Quant au bran- 
chement, nous l'intercepterons en- 
suite a posteriori, via le passage de 
ON par $D82A, selon les memes 
principes que pour IF. 

Prise en charge 
d'erreur par ONERR 

Lorsque ONERR est actif, la surve- 
nance d'une erreur se traduit finale- 
ment par un branchement en $F2E9. 
Cette routine retablit certains para- 
metres pour donner la main au sous- 
programme de traitement des erreurs 
et, en particulier, elle met en $B8- 
$B9 le contenu des adresses $F4- 
$F5. Ces deux adresses contiennent 
l'adresse du numero de la premiere 
ligne de traitement d'erreur donnee 
apres l'instruction ONERR GOTO 
(par exemple, l'adresse du premier 
chiffre de 9000 si vous avez indique 
ONERR GOTO 9000). La mise en 



place de $F4-$F5 est realisee lors de 
1' interpretation de ONERR GOTO. 
Ensuite, la routine repositionne les 
registres et les indicateurs du registre 
d'etat sur le premier caractere de la 
premiere ligne de traitement d'erreur 
par un JSR $B7 (on est toujours sur 
le 9 de ONERR GOTO 9000. par 
exemple). On execute alors un 
GOTO par JSR $D93E : le branche- 
ment se fait done comme s'il s'agis- 
sait d'un GOTO 9000, traite en cas 
d'erreur. ce que traduit bien finale- 
ment l'instruction ONERR GOTO ... 
A Tissue du JSR $D93E, $B8-$B9 
pointe sur 1'octet precedant la pre- 
miere ligne de traitement d'erreur 
(sur 1'octet precedant la ligne 9000. 
par exemple). et on saute directe- 
ment a 1' execution de cette ligne par 
JMP $D7D2. 

La fin de ce processus est resumee 
ci-dessous : 
F30F-JSR $00B7 
F312JSR $D93E 
F315-JMP $D7t>2 

Notre indirection se chargera d'inter- 
cepter l'ordre initial de ONERR 
GOTO pour mettre directement en 
$F4-$F5 l'adresse (moins 1) de la 
premiere ligne de traitement d'erreur. 
On aurait ainsi de suite l'adresse de 
1'octet precedant la ligne 9000 et non 
l'adresse du 9 dans un ONERR 
GOTO 9000. 

Ensuite. e'est au niveau du JSR $B7 
de l'adresse $F30F que nous pour- 
rons reprendre a notre compte le 
traitement d'erreur effectif. e'est-a- 
dire assurer le branchement au sous- 
programme de traitement d'erreur 
lorsque celle-ci s'est effectivement 
produite. 

Indirection dans 
l'interpreteur 

Le source de cette routine est donne 
en fin d'article. 

Tout appel a $B1 ou $B7 nous ame- 
nera done en $9000: I'essentiel du 
travail consiste alors a filtrer les infor- 
mations pour determiner s'il nous 
faut prendre en charge les branche- 
ments ou restituer les octets lus sans 
rien faire. Dans cet effort d'analyse. 
la pile et son pointeur constitueront 
nos principaux soutiens. Rappelons. 
par ailleurs. qu'il est bon d'avoir bien 
etudie les mecanismes du RUN pour 
se pencher sur cette nouvelle routine. 

Les indications ci-dessous vous per- 
mettront de completer les commen- 
taires du listing. 

— Lignes 14 a 25 : l'appel a 
CHRGET vient-il de la routine de 
traitement du ON, ou encore, s'agit-il 
du JSR $B1 de l'adresse $DA00 ? Si 
tel est le cas. le sommet de la pile 
(plus precisement les deux octets 
juste en dessous du sommet) doivent 
correspondre a l'adresse de retour 



moins 1 de ce JSR. soit $DA02 (le 
$02 se situant au-dessus du $DA 
dans la pile). 

Si tel est le cas, nous irons chercher 
les virgules eventuelles (JSR VIR), 
nous "sortirons" le JSR $B1 de la 
pile par deux PLA. nous chargerons 
A avec le code de la virgule (#$2C) 
et nous laisserons ['Applesoft conti- 
nuer le travail en retournant en 
$DA06. En resume, on remplace la 
sous-routine Applesoft de positionne- 
ment sur virgules par la notre. qui 
doit tenir compte de ce que nous 
memorisons des adresses de lignes et 
non des numeros de lignes. 

- Lignes 26 a 29 : le seul token 
traite "en direct" (au niveau du JSR 
$B1 de l'adresse $D81D) est celui de 
ONERR (#$A5). Nous devons alors 
placer les parametres de branche- 
ment sur le sous-programme de trai- 
tement d'erreur (JMP ONI). 

- Lignes 30 a 36 : traitement de 
l'erreur effective lorsque ONERR est 
actif. Dans ce cas. on doit venir du 
JSR $B7 de l'adresse $F30F (som- 
met de la pile egale retour en 
$F311). Branchement sur notre rou- 
tine ERR. 

- Lignes 37 a 44 : analyse a poste- 
riori des instructions de branchement. 
$6-$7 contiennent toujours l'adresse 
de 1'octet lu par CHRGET avant 
celui que Ton est en train de lire par 
ce meme CHRGET. Le branchement 
ne se fera que si le caractere prece- 
dant est un GOTO (#$AB). un 
GOSUB (#$B0) ou une virgule 
(#$2C -traitement des ON ... lors- 
que le branchement ne se fait pas 
sur la premiere ligne donnee dans la 
liste). 

Ceci permet d'eviter les branche- 
ments prematures. Si Ton est encore 
sur la 'merne ligne" que l'instruction 
de branchement. sur laquelle on est 
deja passe sans rien faire. e'est sans 
doute que I' Applesoft veut reellement 
executer un branchement et qu'il en 
cherche l'adresse. II nous reste en 
sus un second verrou. vis-a-vis de 
ces branchements prematures, que 
nous examinerons plus loin. 

- Lignes 45 a 55 : 1'octet lu n'est 
pas pour nous... On en stocke 
l'adresse en $6-$7 (il peut en effet 
s'agir du token d'une instruction qui 
nous interesse). on restaure les regis- 
tres et on reprend le cours normal du 
CHRGET standard. 

- Lignes 56 a 64 : second verrou 
des branchements. Tous les branche- 
ments. simples ou complexes (IF ou 
ON), passent par $D828 ou $D82A 
dans l'interpreteur. On doit arriver 
alors du JMP $B1 de l'adresse 
$D83C. avec au sommet de la pile 
l'adresse moins 1 de la routine de 
traitement de GOTO ($D93E) ou de 
GOSUB ($D921). 

Si tel est bien le cas, il devient cer- 



tain que le branchement doit etre ef- 
fectue, en fonction des resultats obte- 
nus precedemment par I'Applesoft 
(on est arrive jusqu'au point ou I'Ap- 
plesoft se met a la recherche des 
adresses des numeros de lignes). 

- Lignes 65 a 77 : traitement 
GOTO. On "sort" de la pile l'adresse 
moins 1 de la routine de GOTO. On 
trouve dans les deux octets consecu- 
tifs pointes par $B8-$B9 (la ou serait 
le premier chiffre du numero de 
ligne) l'adresse moins 1 de la ligne 
de branchement. que Ton transfere 
en $B8-$B9 (et en $6-$7 pour archi- 
vage de l'adresse du dernier octet 
lu). 

On est toujours sous controle du JSR 
$D828 de l'adresse $D820 (directe- 
ment ou non. comme on l'a vu en 
analysant IF et ON). Le RTS nous 
amene en $D823. soit sur JMP 
$D7D2 pour passer a l'instruction 
suivante pointee par $B8-$B9. e'est- 
a-dire la ligne de branchement. Mis- 
sion accomplie ! 

- Lignes 78 a 98 : traitement de 
GOSUB : principes identiques a 
GOTO. 

En sus. il faut toutefois controler la 
place disponible dans la pile et empi- 
ler ensuite : 

• l'adresse de retour apres execution 
de la sous-routine (nous prenons 
ici l'adresse du premier ":" qui suit 
l'adresse de la sous-routine apres 
GOSUB); 

• le numero de la ligne ou Ton doit 
revenir (adresse de la ligne cou- 
rante memorisee en $75-$76): 

• le token de GOSUB (#$B0) pour 
eviter ensuite les erreurs "RE- 
TURN WITHOUT GOSUB). 

On passe ensujte directement a la 
sous-routine par JMP $D7D2. et non 
par RTS. car e'est la routine de trai- 
tement du RETURN qui est concue 
dans I'Applesoft pour assurer la sortie 
du JSR $D828 de l'adresse $D820. 

- Lignes 99 a 126 : mise en place 
des parametres pour ONERR GOTO. 
On verifie tout d'abord que I on vient 
effectivement de l'analyse du token 
maitre ONERR (sommet de la pile 
egale $D81F si I on vient du JSR 
$B1 de $D81D). Dans ce cas. on 
trouve l'adresse deux octets plus loin 
que la position pointee par $B8-$B9 
(ONERR pour Y=0. GOTO pour 
Y=l. premier octet de l'adresse pour 
Y=2). 

On stocke cette adresse du sous-pro- 
gramme de traitement d'erreur en 
$F4-$F5. on passe directement au 
premier octet qui suit cette adresse 
en ajoutant 4 a $B8-$B9 (plus archi- 
vage en $6-$7) et on signale a I'Ap- 
plesoft que ONERR est actif en met- 
tant #$80 a l'adresse (drapeau) $D8. 
C'est dans la mesure ou ce drapeau 
est positionne a #$80 que 1'arrivee 
d'une erreur nous enverra en $F2E9 
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(voir plus haut). 

On sort ensuite de notre JSR $B1 
par deux PLA et on passe directe- 
ment a la suite par JMP $D7D2. 
puisque Ton a realise ici tout le traite- 
ment necessaire pour notre propre 
manipulation des ONERR GOTO et 
des erreurs eventuelles. 

- Lignes 127 a 133 : traitement des 
erreurs effectives. Le traitement stan- 
dard Applesoft a deja remis en $B8- 
$B9 la valeur de $F4-$F5 (adresse 
premiere ligne sous-programme d'er- 
reur) et il nous reste a l'archiver en 
$6-$7. On restaure ensuite le poin- 
teur de pile a la valeur qu'il avait lors 
de la rentree en $D7D2 (stockee en 
$F8) pour analyse de l'instruction au 
cours de laquelle l'erreur s'est pro- 
duite. En remontant en ONO (JMP 
$D7D2) on commence directement 
1'execution du sous-programme de 
traitement d'erreur. 

A noter que notre manipulation de 
ONERR permet une utilisation repe- 
tee sans les problemes de "OUT OF 
MEMORY" que Ton rencontre avec 
le traitement standard de 1' Applesoft. 

- Lignes 134 a 156 : recherche des 
virgules dans le cadre des instructions 
ON ... 

Comme les adresses occupent tou- 
jours deux octets, la recherche peut 
commencer a deux octets de la posi- 
tion courante (token de GOTO ou 
GOSUB. ou precedente virgule). 
d'ou un LDY #2 au depart. 
Un numero de ligne occupant au 
maximum 5 octets (soit deux octets 
d'adresse et trois ":" apres notre cal- 
cul d'adresses). on doit trouver nor- 
malement une virgule avant que Y 
atteigne la valeur 6. Si tel n est pas le 
cas. il ne peut y avoir de branche- 
ment et on doit passer a Instruction 
suivante en sequence, comme dans 
le traitement standard. On execute 
done deux PLA pour sortir du JSR 
VIR de notre routine, deux PLA pour 
sortir du JSR $B1 de ladresse 
$DA00. un PLA pour recuperer le 
token empile par la routine de ON. 
Le RTS de la ligne 156 nous enverra 
done en $D823 (retour du JSR 
SD828 de ladresse $D820) pour 
passer a l'instruction suivante. De 
plus, on remet Y a 2. pour pointer 
sur le premier octet qui suit la der- 
niere adresse de ligne donnee dans 
la liste (en principe. on a avance re- 
gulierement $B8-$B9 pour le faire 
pointer sur la virgule que Ton vient 
de trouver - voir ci-dessous. En par- 
tant de la derniere virgule trouvee. la 
fin de l'instruction ON GOTO ... se 
trouve deux octets plus loin, juste 



apres la derniere adresse de ligne 
donnee dans la liste). 
Les lignes 147 a 155 permettent de 
positionner $B8-$B9 sur la virgule 
trouvee et d en archiver I' adresse (on 
ajoute la valeur de Y a la precedente 
valeur de $B8-$B9). C'est approxi- 
marivement le meme traitement que 
celui realise par l'Applesoft dans sa 
routine $DA0C On revient ensuite 
pour redonner la main a la routine 
de ON. qui se chargera de savoir si 

I on est arrive ou non a la bonne 
adresse de branchement (a la bonne 
virgule). 

Dans le cas du non branchement 
(expression vaut ou superieure au 
nombre d'items prevus). les lignes 
147 a 155 permettent de faire poin- 
ter %RH SB') sur le premier octet qui 
suit la fin de l'instruction ON ... 

Mode operatoire 

Pour tester ce systeme de branche- 
ment sur adresses. nous vous 
conseillons de disposer sur une 
meme disquette des codes objets des 
deux routines concernees. Sur la dis- 
quette Pom's, la routine de calcul 
des adresses est baptisee COMPG2 
et celle d'analyse des instructions de 
branchement INTERG11. 
Comme dans les exemples evoques 
dans le Pom's 16. constituez egale- 
ment un petit fichier pour mettre en 
place ^indirection dans CHRGET. Ce 
fichier contiendra simplement les 
codes 4C 00 90 (JMP $9000) et 
i se charger a l adresse $BA. Un 
est fourni sur la disquette 
d'accompagnement sous le nom 
INTER6. 

Un second fichier permettra de reta 
blir CHRGET a sa structure normale. 

II devra se charger egalement en 
$BA et contiendra les 4 octets C9 3A 
B0 OA (CMP #$3A et BCS $00C8). 
Ce fichier s'appelle CHRGET sur la 
disquette d'accompagnement 

Constituez ensuite un fichier EXEC 
(tel COMPDEF sur la disquette) qui 
comprendra les instructions suivan- 
tes : 

HIMEM9*4096 
BRUN COMPG2 
BLOAD INTERG1 1 
BLOAD INTER6 

Une fois ce fichier present sur la 
meme disquette que les autres. char- 
gez ou entrez au clavier votre pro- 
gramme "source" en Applesoft (sau- 
vez-le sous cette forme normale si ce 
n'est deja fait). 

Tapez ensuite EXEC COMPDEF. 
pour faire executer le calcul des 



adresses et mettre en place l'indirec- 
tion dans CHRGET. Listez le resultat 
de ce travail, ne serait-ce que par 
curiosite... 

Vous pouvez enfin faire un RUN du 
programme adapte en memoire et 
controler le deroulement des opera- 
tions. 

Pour revenir a l'Applesoft standard, 
tapez. en mode immediat par exem- 
ple. BLOAD CHRGET (le pro- 
gramme en memoire. avec les 
adresse calculees. ne pourra des lors 
plus etre execute sans erreur de syn- 
taxe. a moins que vous ne rechargiez 
1'aiguillage par BLOAD INTER6). 
Un programme comportant des 
adresses en lieu et place des nume- 
ros de ligne ne peut generalement 
pas etre sauve sur disquette correcte- 
ment. car la commande SAVE n'est 
pas prevue pour traiter des program- 
mes comportant des ailleurs qu'en 
fin de ligne (alors qu'on peut trouver 
des dans nos adresses de lignes). 
Ceci justifie lemploi d'un fichier 
EXEC pour traiter automatiquement 
un programme source en memoire. 
chaque fois que I on veut tester son 
fonctionnement avec des branche- 
ments sur adresses. 
Comme vous pourrez le constater. ce 
mecanisme de branchement ne se 
traduit par des gains de temps reels 
que dans certaines structures de pro- 
gramme bien particulieres : nom- 
breux branchements sur des lignes si- 
tuees tres loin de leurs points 
d'appel. Dans les autres cas, le temps 
perdu a analyser chaque octet du 
programme dans la routine $9000, 
que celui-ci la concerne ou non, an- 
nule le temps gagne sur les branche- 
ments. Cet exercice de style nous 
aura done surtout servi de pretexte 
pour approfondir le fonctionnement 
de l'Applesoft et les processus de 
"greffe" que I on peut lui appliquer 
par le biais de I'assembleur et du Ian- 
gage machine. Nul doute que I'utilite 
de la pile, en tant qu'outil de memo- 
risation des operations passees et 
d'analyse de ces operations, vous ap- 
paraitra plus nettement apres cet 
usage intensif du pointeur de pile. 

L'etude en profondeur des routines 
de l'Applesoft pourra vous etre sou- 
vent utile, si vous desirez perseverer 
dans la chirurgie plastique du lan- 
gage de base de votre Apple. Afin de 
vous y aider un peu, vous trouverez 
en annexe la liste des points d'entree 
des routines de traitement des tokens 
"maitres". Vous serez ainsi en posse- 
sion des cles. a vous d'ouvrir les 
portes... ■ 
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124 PLA j SORT DU " 
JSR *B1* DE *D81D 

125 PLA 

126 ONO JMP *D7D2 ; PASSE A L 

'INSTRUCTION SUIVANTE 

127 ERR LDA *F4 jSAUT A LA 

ROUTINE BASIC DE TRAITEMENT DES E 
RREURS 

%6 
*F5 
*7 
*F8 



128 
129 
130 
131 
132 
133 

134 UIR 



STA 
LDA 
STA 
LDX 
TXS 
BNE 
LDY 



ONO 

£2 



; CHERCHE V 



I RGULES DANS INSTRUCTION 'ON GOTO 

■ 

135 VIR1 LDA <*B8> ,Y 

136 CMP £*2C 

137 BEQ VIR2 

138 I NY 

139 CPY £6 ;SI PAS DE 
" , ' A 5 OCTETS DU TOKEN DE GOTO 



140 BNE VI Rl ;OU GOSUB 
— > ERREUR 

141 PLA ;MAIS PASS 
AGE A INSTRUCTION SUIVANTE SI 

142 PLA ; VARI ABLE= 
OU SUPERIEURE AU NOMBRE D' ITEMS 

143 PLA 

144 PLA 

145 PLA 

146 LDY £2 

147 VI R2 TYA ; PLACE *B8 

-*B9 SUR UNE VIRGULE DANS L' INSTRU 
CTION 

;'ON GOTO 



1 48 
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CLC 




■ • • 

149 


ADC 


*B8 
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STA 


*B8 


151 


STA 


*6 
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INC 
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154 VIR3 
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STA 
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FO Al BO 


C6 


A9 
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B8 
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16 


DO 


D6 


68 


68 


AO 


00 
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0398- 


DO F3 FF 












9078- 


B8 


48 


C8 


Bl 


B8 


85 


B9 


85 


•300.39A 
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9088- 


07 
68 


68 
A9 


85 
03 


B8 
20 


85 
D6 


06 
03 


60 
A5 


68 
B8 


0300- A5 


67 


85 


B8 


A5 


68 


85 


B9 


INTERG 11 












9090- 


18 


69 


02 


85 


06 


A5 


B9 


69 


0308- AO 


01 


Bl 


88 


DO 


03 


4C 


3C 
















9098- 


00 


48 


A5 


06 


48 


A5 


76 


48 


0310- D4 


85 


09 


88 


Bl 


B8 


85 


08 


•9000 .91 17 












90A0- 


A5 


75 


48 


A9 


BO 


48 


20 


75 


0318- AO 


02 


Bl 


88 


85 


75 


C8 


Bl 
















90A8- 


90 


4C 


02 


07 


BD 


02 


01 


C9 


0320- B8 


85 


76 


A5 


B8 


18 


69 


03 


9000- 


85 BD 84 


08 


86 


09 


BA 


BD 


9080- 


D8 


FO 


03 


4C 




z 


BD 


01 


0328- 85 


B8 


90 


02 


E6 


B9 


20 


Bl 


9008- 


02 01 C9 


DA 


DO 


1 1 


BD 


01 


90B8- 


01 


C9 


IF 


FO 




28 90 


0330- 00 


DO 


OE 


C9 


3A 


FO 


F7 


A5 


9010- 


01 C9 2 


DO 


OA 


20 


F2 


90 


90C0- 


AO 


02 


Bl 


B8 


85 


F4 


C8 


81 


0338- 08 


85 


B8 


A5 


09 


85 


B9 


DO 


9018- 


68 68 A9 


2C 


4C 


06 


DA 


A5 


90C8- 


B8 


85 


F5 


A5 


B8 


18 


69 


04 


0340- C7 


C9 


AB 


FO 


15 


C9 


BO 


FO 


9020- 


BD C9 A5 


DO 


03 


4C 


AC 


90 


9000- 


85 


B8 


85 


06 


A5 


89 


69 


00 


0348- 11 


C9 


C4 


DO 


El 


AO 


01 


Bl 


9028- 


BD 2 01 


C9 


F3 


00 


OA 


BD 


9008- 


85 


B9 


85 


07 


A9 


80 


85 


08 


0350- B8 


C9 


3A 


BO 


D9 


88 


A9 


AB 


9030- 


01 01 C9 


1 1 


DO 


03 


4C 


E5 


90EO- 


68 


68 


4C 


02 


D7 


A5 


F4 


85 


0358- 91 


B8 


20 Bl 


00 


A4 B8 


84 


9038- 


90 AO 00 


Bl 


06 


C9 


AB 


FO 


90E8- 


06 


A5 


F5 


85 


07 


A6 


F8 


9A 


0360- 06 


A4 


B9 


84 


07 


C9 


30 


DO 


9040- 


IE C9 BO 


FO 


1A 


C9 


2C 


FO 


90F0- 


DO 


FO 


AO 


02 


Bl 


B8 


C9 


2C 


0368- 03 


20 


81 


00 


20 


B7 00 


20 


9048- 


16 A5 B8 


85 


06 A5 


B9 


85 




68 


OC C8 CO 


06 


DO 


F5 


68 


0370- 3E 


D9 


AO 


00 


A5 


B8 


91 


06 


9050- 


07 A4 08 A6 09 A5 BD C9 


lilt 


68 


68 


68 


AO 


02 


98 


IP 


0378- C8 


A5 


B9 


91 


06 


A5 


06 


85 


9058- 


3A BO 03 


4C 


BE 


00 


60 


BD 


9108- 


65 


B8 


85 


B8 


85 


06 


90 


02 


0380- B8 


A5 


07 


85 


B9 


E6 


B8 


DO 


9060- 


02 01 C9 


D9 


DO 


E3 


BD 


01 


9110- 


E6 


B9 


A5 


B9 


85 


07 


60 


00 



F1D5 CHLL 


F6E9 


HCOLOH= 


D66H j CLEAR 


F3E2 


HGR 


F24F COLOR= 


F3D8 


HGR2 


DB96 CONT 


F286 


HIMEM: 


D995 DRTR 


F232 


HLIN 


E313 DEF 


FC58 HOME 


F331 DEI 


F6FE HPLOT 


DFD9 DIM 


F7E7 i HTRB 


F769 DRRUJ 


D9C9 IF 


D870 END 


FIDE 


IN* 


F280 FLASH 


DBB2 


INPUT 


D766 FOR 


F277 


INUERSE 


DBRO GET 


DR46 


LET 


D921 GOSUB 


D6R5 


LIST 


D93E GOTO 


D8C9 


LORD 


F390 GR 


F2H6 


LOMEM: 



F273 


NORMRL 


F26F 


NOTRRCE 


D649 


Mai 


DCF9 


NEHT 


D9EC 


ON 


F2CB 


ONERR 


F225 


PLOT 


E77B 


POKE 


096B 


POP 


F1E5 


PR* 


DR05 


PRINT 


0BE2 


RERD 


F3BC 


RECALL 


D9DC 


REM 


D849 


AESTOAE 


F3I8 


AESUME 



D96B 


AETURN 


F721 


ROT= 


D912 


RUN 


D8B0 


SHUE 


F727 


SCRLE= 


F775 SHLOHD 


F262 SPEED= 


D86E STOP 


F39F STOAE 


F399 


TEHT 


F26D 


TRACE 


F241 


ULIN 


F256 


UTAB 


E784 


UJRIT 


F76F HDAAUJ 


03F5 
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HGR DUMP sur Epson 

Alexandre Avrane 



Fatigue de n'utiliser votre imprimante 
graphique qu'au quart de ses possibi- 
lity ? Ce programme, prevu pour les 
imprimantes Epson mais adaptable a 
toutes imprimantes a aiguilles, ap- 
porte les possibilites d'une carte in- 
terface graphique... sans le cout. 

Voici les fonctions possibles : 

- impression simultanee (sur le 
meme bloc horizontal) de un a trois 
ecrans haute-resolution de 1' Apple 

- tabulations horizontals precedant 
1' impression des ecrans 

- rotation de l'image imprimee de 0, 
90, 180 ou 270 degres 

- zoom possible dans les rapports 
1/1, 2/1, 4/1 

- impression en simple ou double 
densite 

- impression normale ou inversee 
(noir / blanc) 

- definition possible de la fenetre de 
l'ecran haute-resolution a imprimer. 

Execution du 
programme 

Le programme s' initialise par un sim- 
ple BRUN HGR DUMP. II utilise 
1'omnipresent vecteur de l'ampersand 
(&). Une fois active, il n'existe 
qu'une seule instruction pour 1' exe- 
cutes celle-ci comportant de tres 
nombreux parametres facultatifs; la 
syntaxe complete est : 

& PR# <ecrans + tabulations> 
<parametres> 

Pas de panique ! En cas de trou de 
memoire, tapez "& PR# ?" et vous 
obtiendrez a l'ecran la liste des para- 
metres disponibles. De plus, tous les 
parametres ont une valeur par defaut 
et peuvent etre donnes dans n'im- 
porte quel ordre. 

Voyons-les de plus pres : 

• & est 1' instruction qui debranche 
1' Applesoft vers le programme. Pas 
question de l'utiliser sous le Basic 
Integer ou le moniteur ! 

• PR# est l'identificateur du vecteur 
Ampersand demande. En effet le 
programme, lors de son charge- 
ment, ne detruit pas l'ancien vec- 
teur qui etait eventuellement en 
place pour une autre routine. 
Celui-ci est automatiquement ap- 
pele si le mot-cle PR# ne suit pas 
l'ampersand. 

Definition des ecrans 

<ecrans +tabulations> est une suite 
facultative de 1 a 3 ecrans haute-re- 
solution et eventuellement 1 a 3 ta- 
bulations horizontales qui les prece- 



deront a 1' impression. Les valeurs 
possibles des ecrans sont : HGR, 
HGR2, HGR3 (zone memoire non 
visualisable situee en $6000-$7FFF); 
les tabulations s'expriment par TAB 
(n) ou n est exprime en nombre de 
caracteres de 1' imprimante. 

Exemples : 

& PR# HGR, HGR2 

& PR# TAB(IO), HGR2. TAB(5). 

HGR 

& PR# HGR3 

& PR# HGR, HGR3, TAB(IO), 
HGR3 

Attention : dans le dernier exemple, 
la tabulation indiquee s'appliquera 
avant l'impression du premier ecran. 
Si une tabulation est necessaire uni- 
quement entre le 2eme et 3eme 
ecran, il faut ecrire : & PR# TAB(O), 
HGR, TAB(O), HGR(3), TAB(IO), 
HGR3... c'est la rancon a payer pour 
saisir les parametres dans n'importe 
quel ordre. Deuxieme remarque : 
hormis le premier parametre. tous les 
autres sont precedes par une virgule. 

Si rien n'est precise, la commande 
par defaut est : 

& PR# TAB(O), HGR 

et imprime done le premier ecran 
haute-resolution de I' Apple. 

Un maximum de trois ecrans (avec 
leur tabulation eventuelle) est auto- 
rise. En saisir un quatrieme effacera 
le premier entre. 

Definition des autres parametres 

Les autres parametres sont : 

• ROT=n ou n vaut 0. 1, 2 ou 3, 
correspondent a une rotation de 
0, 90, 180 ou 270 degres de l'im- 
pression par rapport a l'image sur 
ecran. 

• SCALE =n ou n vaut 1, 2 ou 4 
(pas de 3 !) effectue un effet de 
zoom de meme proportion. 

• INVERSE imprime l'ecran en in- 
verse (impression des points 
eteints uniquement) 

• FLASH demande une impression 
en double densite, donnant une 
meilleure definition du resultat (ca- 
racteristique de 1' Epson). 

• SCRN(al, a2, bl, b2) precise la 
partie de l'ecran a imprimer, en 
definissant les colonnes de depart 
(al) et d'arrivee (a2) et les lignes 
de depart (bl) et d'arrivee (b2) 
d'une fenetre. Les valeurs sont ex- 
primees comme les HTAB et 
VTAB d'un ecran texte, c'est a 



dire dans les limites 0-40 et 0-24 
respectivement. 

Lorsqu'ils sont omis, ces parametres 
ont comme valeur par defaut : 
ROT=0, SCALE=1. non FLASH, 
non INVERSE, SCRN(0,40.0.24) 

Exemples d' utilisation : 

& PR# HGR2, FLASH 
& PR# INVERSE. ROT=l, 
SCALE =2 (ecran HGR par defaut) 
& PR# HGR3, HGR, SCALE=4, 
SCRN( 10,30,0,24) 

Dans la version actuelle du pro- 
gramme, tous les parametres sont 
globaux et s'appliquent done a I'en- 
semble des ecrans demandes. 
Enfin, il est bien sur de la responsa- 
bilite de l'utilisateur de charger les 
images video en memoire avant leur 
utilisation. 

Messages d'erreur 

SYNTAX ERROR est genere lorsque. 
le prefixe & PR# ayant ete reconnu. 
la suite de la commande est incom- 
prehensible. 

ILLEGAL QUANTITY ERROR est 
genere lorsque les valeurs des para- 
metres ROT, SCALE ou SCRN de- 
passent les plages permises. 
OVERFLOW ERROR, enfin, lorsque 
la longueur totale d'une ligne d' im- 
pression (nombre d'ecrans x taille 
d'un ecran + tabulations) depasse la 
longueur du rouleau de l'imprimante. 

Ces erreurs peuvent etre interceptees 
par 1' instruction ONERR GOTO de 
1' Applesoft. 

Fonctionnement 

Organisation interne 

Le programme necessite une confi- 
guration minimum de 48K, ainsi que 
le moniteur Autostart et 1' Applesoft 
sur la carte mere ou la carte langage. 
II se charge a partir de l'adresse 
$8000 (32768), done juste au-dessus 
de la troisieme page graphique, et 
laisse plus de 4K octets disponibles 
pour d' autres routines situees avant 
les buffers du DOS (ou de ProDOS). 

II est organise en quatre parties prin- 
cipals : 

- un interpreteur de commandes qui 
gere 1' initialisation et la lecture des 
parametres 

— un algorithme d' impression pour 
des rotations a I' horizontal (ROT=0 
ou 2) 

— un algorithme d' impression pour 
des rotations a la verticale (ROT= 1 
ou 3) 

- une batterie de modules de ser- 
vice 

II est malheureusement impossible 
d'entrer plus en detail dans ie fonc- 
tionnement des deux algorithmes en 
raison de leur complexity, la concep- 
tion de la haute resolution sur l'Ap- 
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pie II ayant du etre inspiree par un 
casse-tete chinois particulierement vi- 

cieux... 

Gestion des interruptions et de 
1'environnement 

Le programme peut etre interrompu 
momentanement par la touche ESC 
a la fin de 1' impression d'une ligne. 
L' interruption est definitive par la 
touche CTRL-C. 

Le programme sauvegarde 1'environ- 
nement utilise (adresses en page 
zero, vecteur de Reset, adresse de la 
routine de sortie de caracteres) avant 
son execution. L' activation de 
RESET retablit les valeurs d'origine; 
1' utilisation repetee tres rapidement 
de Reset si ROT= 2 ou 3 peut ame- 
ner la destruction de 1' image video. 



Parametres d'assemblage 

Le fichier source HGR DUMP S est 
utilise par Big Mac. 
PRSLOT definit le slot de I'impri- 
mante (actuellement 1). 
MX80, MX82, MX 100 indiquent le 
modele d'Epson utilise. 
TWINLF doit etre a si l'imprimante 
ne possede pas de saut de ligne in- 
terne, a 1 sinon. 

MSGO est le message envoye (en 
ordre inverse) a l'imprimante pour 
initialiser la taille en pouces d un saut 
de ligne. 

MSG1 est le message lui indiquant 
que les PIXLNOl * 256 + 
PIXLN02 octets suivants quelle re- 
cevra devront etre consideres comme 
des representations graphiques pour 
la tete d'ecriture a 8 aiguilles, en sim- 



ple (DUMPTYPE = "K") ou double 
("L") densite. 

Ameliorations possibles 

II est possible de perfectionner le 
programme pour lui faire supporter 
d'autres types d'imprimantes a aiguil- 
les (en modifiant les valeurs de 
MSGO et MSG1 contenant les codes 
de controles). 

On pourrait egalement rendre les pa- 
rametres locaux, done autoriser ['im- 
pression, sur un meme bloc horizon- 
tal, d'un ecran normal suivi par un 
ecran a taille double et tourne de 90 
degres par exemple. 
Enfin, on peut le modifier pour gerer 
les couleurs, ou la double haute-re- 
solution (560x192) de I'Apple He. 

A vous de jouer ! ■ 
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144 JSR 
167 LOY 

148 BNE 
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CK , 
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DEX 
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JMP 
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CHRGET 
■ I 
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• 
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SYNERR .rror 



CMOADDR ,X 
CMDADDR.X 



HEREUEGO PLA 
PLA 

199 NOUUEGO - 
200 

201 ...ii. 



202 *Viri*n longu*ur < 1 arg*ur imprimi 
ntl 



Pom's n° 17 



33 



— 'J J 


™ 








2o <♦ 










20 3 


• Ca 1 cul t 


I ar Q 


»ur d'un ecran 


20 a 




CLD 






20 7 




LDA 


SCRNMAXH 




208 




SEC 






20 9 




SBC 


SCPNMINH 


ctlcul 


21 




LOY 


ROTAT I ON 


1 argeur 


21 1 




BEO 


GETTABO 


term 


21 2 




LDA 


SCRNMAXV 




21 3 




SEC 






21 4 




SBC 


SCRNMINV 




21 3 


GETTA80 


STA 


SCRUIDTH 


1-40 


216 




LDX 


SIZE 




21 7 


GETTAB1 


DEX 






218 




BEO 


GETTAB2 




21 9 




CLC 






220 




ADC 


SCRUIDTH 




221 




BNE 


GETTAB1 


■» jmp 


222 


GETTAB2 


STA 


SCRUIDTH 


1-160 


223 










224 


•MAJ No 


matr i 


ces pour 1 


tcrjn 


223 


• < 7 x pi 


' * i 


si rot"0 , 


sinon S> 


226 




STA 


MASK2 




22? 




STA 


PIXLN02 




228 




LOX 


•0 




229 




STX 


MASK 1 




230 




STX 


P1XLN01 




231 




LDX 


•2 




232 




BIT 


DBSTPI KE 


*i asn' 


233 




BPL 


SETPIXLO 


no 


234 




I NX 






233 




ASL 


r¥*SK2 




236 




ROL 


MASK 1 




237 


SETPIXLO 


ASL 


PIXLN02 




238 




ROL 


PIXLNOl 




239 




DEX 






240 




BPL 


SETPIXLO 




241 




DEY 




|l-Ot-l ? 


242 




BPL 


CHKTA80 


OU 1 


243 




SEC 






244 




LDA 


PIXLN02 




243 




SBC 


MASK2 




246 




STA 


PIXLN02 




247 




LDA 


PIXLNOl 




248 




SBC 


MASK 1 




249 




STA 


PIXLNOl 




230 










231 


... rr | 4 1 * 


longueur et 1 argeur imprim 




an t v 








232 


CHKTABO 


LDA 


HPAG1 




233 




BNE 


CHKTAB1 


de*aut»hgr 


234 


1 


LDA 


••20 




233 




STA 


HPAG1 




236 










23? 


CHKTA81 


CLC . 






238 




LDA 


SCRUIDTH 




239 




AOC 


TAB1 




260 




AOC 


TA82 




261 




LDX 


HPAG2 




262 




BEO 


CHKTAB2 


no 2eme 


263 




ADC 


SCRUIDTH 




264 




LOX 


HPAG3 




263 




BEO 


CHKTA82 


no 3eme 


266 




ADC 


SCRUIDTH 




26 7 


CHKTA82 


8CC 


CHKTAB4 


< 233 


268 


CHKTA83 


LDX 


••43 


ouer* 1 ow 


269 




JMP 


ERROR 




270 


CMKTAB4 


CMP 


•MAXU I DTH* 1 


271 




8CS 


CHKTAB3 





273 
274 
273 
276 
277 
278 
279 
280 
281 
282 
283 
284 
283 
286 
287 
288 
289 
290 
291 
292 
293 
294 
293 
296 
297 
298 
299 
300 
30 1 
30 2 
303 



•Sauwe page zero .csw.p i I e ,rese t 





LDX 


•sop 


SAVE 


LDA 


SAVGBASL.X 




STA 


SAVEAREA ,X 




OEX 






BPL 


SAVE 




LDA 


csu 




STA 


SAVCSU 




LDA 


CSU.l 




STA 


SAVCSU* 1 




LDA 


SOFTEV 




STA 


SAVRESET 




LDA 


SOFTEV* 1 




STA 


SAVRESET* 1 




TSX 






STX 


SAV STACK 


•MAJ 


vec teur 


Reset 




LDA 


•<RESET 




STA 


SOFTEV 




LDA 


•>RESET 




STA 


SOFTEV* 1 




JSR 


SETPURC 




JSR 


FLIP 



•Configure Epson 



304 
30 3 

306 
30 7 
308 
309 
310 
31 1 
312 
313 
314 
313 
316 
317 
313 
319 
320 
321 
322 
323 
324 
323 
326 
327 
328 
329 
330 
331 
332 
333 
334 
333 
336 
337 
338 
339 
340 
341 
342 

343 
344 
343 
346 
347 
348 
349 
330 
331 
332 

333 
334 



LDA •POSLOT 

JSR OUTPORT P 

R»sl ot 

•Vide buffer impnmante: 

JSR =URGE 

• Initialise int»r*ac*M 

LDY »LGMSG0-1 
PR INTO LDA MSG0.Y 

JSR COUT 

DEY 

BPL PRINTO 

•Initialise linefeed: 

LDY »LGMSG1-1 
PRINTI LDA MSGl.Y 

JSR COUT 

DEY 

BPL PRINTI 



•V* au dumo hor i zon t a 1 / ver t i c a I 

LDA ROTATION 

BEO 0UMP1 rot-0 

JSR 0UMP2 rot-1 



•Sor tit. restaur* tout ft quitte 



EXIT 



EXIT" 1 





• 


LDX 


••OF 


LDA 


SAVEAREA , X 


STA 


SAVGBASL.X 


OEX 




BPL 


EXIT" 1 


JSR 


FLIP 


LDX 


SAVSTACK 


TXS 




LDA 


SAVCSU 


STA 


CSU 


LDA 


SAVCSU* 1 


STA 


CSU*1 


LDA 


SAVRESET 


STA 


SOFTS." 


LDA 


SAVRESET* 1 


STA 


SOFTEV* I 


JMP 


SETPURC 



ristwn p 



-> retour 



* I ' appe I 



333 •Initial is* impnmante pour grapniq 
u» 

336 ■ ■■' 



337 
338 
339 
360 
361 
362 
363 
364 
363 
366 
367 
368 
369 
370 
371 
372 
373 
374 
373 
376 
377 
378 
379 
380 
381 
382 
383 
384 
383 
386 
387 
388 
389 
390 
391 
392 
393 
394 
393 
396 
39 7 
398 
399 
400 
401 



GRAPHICS - 



•Pause ou abandon ? 



LDA 


KEYBOARD 


BPL 


GRAPHICS 


STA 


STROBE 


CMP 


•PAUSE 


BNE 


GRAPH I C4 


LDA 


KEYBOARD 


BPL 


GRAPH I C2 


STA 


STROBE 


CMP 


•A80RT 


BED 


EXIT 


LDY 


•LGMSG2- 


LDA 


MSG2.Y 


JSR 


COUT 


DEY 




BPL 


GRAPHIC6 


RTS 




AST 


70 



•♦♦♦♦♦•♦♦♦♦♦*♦+♦♦•♦♦♦♦♦*♦♦♦♦♦♦♦» 
DUMP1 - • rot - 



•Oump d«;ande ■ 1 to 3 screens 

• 1 term - 24 blocs de 8 lignes 

• 1 bloc ■ 40 cntrtcttrtt 
•I character* ■ 8 matrice 
•I matr i ce - 8 pixels 



•Dump rotation normalei selectionne 
•ecrans, blocs de 8 lignes 

LDA SCRNMINV 0-23 

ASL 

ASL 

ASL 

TAY 

STY VERTICAL 0-184 

•Ligne superieure pour cnague bloc 
SCRN8 " 1 LDY VERTICAL 0-191 



40 2 




STY 


VERTICA2 


sauve 1 i gn 




• super i eure 






40 3 




TYA 






404 




LSR 






40 3 




LSR 






40 6 




LSR 




S0-23 


40 7 




CMP 


SCRNMAXV 


dernier bl 




oc ? 








40 8 




BCS 


EXIT 


oui 


40 9 










410 




LDY 


•0 




41 1 




STY 


NBHPAG 




41 2 










413 


•Prend 1 


ecran, place Tab 


414 


SCRN8 ' 2 


LDX 


TAB0 . Y 


>— nbhpag 


41 3 




BEO 


SCRN8-3 


pas de Tab 


416 




JSR 


PRBL2 


Pr i nt 


41 7 










418 


SCRN8-3 


LDX 


HPAG0 ,Y 


y— nohpag 


419 




BEO 


SCRNS" 7 


pas 1 ecra 


420 


n 


STX 


HPAG 




421 




DEY 


; premi er 


ecran ? 


422 




BMI 


SCRNS "6 


OU 1 


423 




LDA 


VERTICA2 




424 




STA 


VERTICAL 


restaure 1 



423 
426 

427 
423 
429 
430 
431 
432 

433 
434 
433 
436 
437 
438 
439 
440 
441 
442 
443 
444 
443 
446 
447 

448 
449 
430 

431 
432 
433 
434 

433 
436 
437 

438 
439 
460 
461 
462 
463 
464 
463 
466 
467 
468 
469 
470 
471 
472 
473 
474 
473 
476 

477 
478 
479 
480 
481 
482 
483 
484 
483 



igne superieure 

•Saisit et sauue aoresse base pour 

chaaue bloc 
SCRN8" 6 LDA VERTICAL 0-191 
INC VERTICAL 
PHA 

LDX »0 
LDY »0 

JSR HPOSN -> GBASL < 

adresse base pour ligne) 

PLA 

AND SIZE2 7,3.1 

ASL 

TAX 

PHA 

LDA GBASL 

ADC SCRNMINH carry- 

STA SAVGBASL.X 

INX 

LDA GBASL* 1 
STA SAVGBASL.X 
PLA 

i0-7 

derniere I 



LSR 

CMP SI2E2 
igne du groupe ? 

BCC SCRN8-6 



non 



•Oump du bloc, PRINT CR, ua a I a su 
i t* 

JSR LINE8 

SCRNS" 7 INC NSHPAG 

LDY NBHPAG 

CPY »3 dernier ec 

ran * i n i ? 

BCC SCRN8-2 no 

JSR CROUT 

JMP SCRN8-1 ua au bloc 

su i van t 



•Sort le caractere forme par 8 
•pixels horizontaux par bloc 



LINE8 



JSR GRAPHICS 
. fie fin de bloc 



LDY 


SCRNMINH 


0-39 


DEY 






STY 


HOR I Z ON 


set htab 


INC 


HOR I Z ON 




LOY 


HORIZON 




CPY 


SCRNMAXH 


1-40 


BCS 


CHARS "3 


sor 1 1 e 


JSR 


CHARS 





LINE8-2 



•MAJ adresse du groupe de 8x8-pixel 
s 

LDX »I6-2 
LINE8-3 INC SAVGBASL.X 
OEX 
OEX 

BPL LINE8-3 
♦Boucle sur I 'octet HTAS suiuant 
BMI LINEB-2 -.imp 



486 •Stltctionnt la matrice du characte 

re 

487 ii 

488 CHARS - • 

489 LDA r/.00000001 MAJ comote 
ur 

490 STA PIXLHPOS 



34 



Pom's n° 17 



491 
492 
493 

494 
493 
494 
497 
498 
499 
300 
301 
302 

303 
304 
30 3 
30 4 
30 7 
308 

309 

310 
311 
312 



CHAR8"2 JSR PIXL3 
CLC 

ROL PIXLHPOS 

atrtc* 7 

BPL CHAR8" 2 
CHAR8-3 RTS 



d*rn i ip» m 

non 



•Oump 8 pixtls d*s 8 I j gn** 



PIXL8 



PIXL3" 1 



PIXL8-2 
ctit 



LDX »0 

STX MATRIX 

LOA H80 

ST A PIXLVPOS 

LOA SIZE 

STA SAVEBYTE 



i n i t i A I Hi 



1.2,4 



LOA (SAVGBASL.X) Willi o 



AND PIXLHPOS Mltctionn 
» bit, ignor* la coul*ur 
BED PIXL8-3 
LDA PIXLVPOS 

ORA MATRIX MAJ nitric 

STA MATRIX 



313 
314 

313 PIXL8-3 LSR PIXLVPOS 

314 8EQ DELIVER 
*oi * 

317 DEC SAVEBYTE 

mtnt i on 



•x»cut* 8 
v*r i * i • di 



31 8 




BEO 


PIXL8-4 




319 




BNE 


PIXL8-2 


-jmp 


320 


PIXL8-4 


INX 






321 




INX 






322 




BNE 


PIXL8-1 


-jmp 


323 




AST 


70 




324 










323 


















324 


•Envoi au port I/O d* 


' i mpr i man t* 


327 










328 


DELIVER 


LDA 


DBSTRI KE 


0,80 


329 




ASL 


;m*t carry a 1 »i Fla 




»h 








330 




LDA 


SIZE 


1 ,2,4 


331 




BCC 


DELI VER2 




332 




ASL 




12.4.8 


333 


0ELIVER2 


TAX 






334 


0ELIVER3 


LDA 


MATRIX 




335 




EOR 


NEGATIVE 




■ox 

3 JO 


DELIVER4 


BIT 


CARDACK 




337 




BMI 


DELIVER4 




338 




STA 


FLUSH 




339 




DEX 






340 




BNE 


DELIVERS 




34 1 




RTS 






342 




AST 


70 




343 










344 


•♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦•♦♦♦♦♦♦♦♦♦♦ft 


345 


DUMP2 




• 


rot - 1 


344 










347 










548 


•Dump damand* 


■ 1 a 3 ecran* 


349 


•1 acran 


- 40 


blocs da 


col onn*s 


3S0 


•1 Bloc ■ 192 


group** da 1 i gn* 


331 


•1 group* da 


1 i gn* - 2 


oc t* t* 


332 


•1 matrica ■ 


8 oi.iis 


I octat 


353 










334 


















335 


•Bouc 1 • *ur !•* colonn 


* 


534 




















557 




LDY 


SCRNMINH 


0-39 


538 




DEY 






359 




STY 


HORIZON 




540 


C0L7- 1 


LDY 


•0 




541 




STY 


TRANSIT2 




342 




INC 


HORIZON 




343 


C0L7-2 


LDA 


HORIZON 




344 




CMP 


SCRNMAXH 


d*rni*r* T 




ab ? 








343 




BCS 


C0L7-9 


ou i : *or 1 1 * 


344 


•MAJ nasQutt 


pour Tab* 


courant at * 




u i van t* 








347 




AND 


SIZE2 


modu 1 o 8,4 


348 


,2 


STA 


SAVEBYTE 


0-7/3/1 


349 










370 




LDA 


SIZE 


1 .2,4 


371 




CMP 


44 




372 




BNE 


C0L7-20 




373 




LDA 


43 




374 


COL 7* 20 


PMA 






373 




TAY 






374 


COL7-21 


DEY 






377 




BEO 


C0L7-22 




378 




ASL 


SAVEBYTE 




379 




BPL 


C0L7-21 


-jmp 


380 










381 


C0L7-22 


PLA 


H.2, 3 




582 




ASL 






583 




ASL 







384 




ASL 






385 




ADC 


SAVEBYTE 


c-0 


584 




ADC 


TRANSIT2 




587 




ASL 






388 




TAY 






389 




LDA 


MASKTA8L- 


14, Y *•■•!• 


390 




STA 


MASK1 


maaguas 


391 




BEQ 


C0L7- 1 


8*m*-l *r 


592 




INY 






593 




LDA 


MASKTABL- 


14, Y 


594 




STA 


MASK2 




595 




LDY 


40 




394 




STY 


NBHPAG 




397 










398 


•Sai »l t 


1 ecran at imprim* Tab 


399 


C0L7-3 


LOX 


TAB0 , Y 


y-nbnpag 


400 




BEO 


C0L7"4 




401 




JSR 


PRBL2 




40 2 


C0L7-4 


LDX 


HPAG0 ,Y 


>— nbnpag 


403 




BEQ 


C0L7-7 




404 




STX 


HPAG 




403 










404 




JSR 


LINE7 




407 


C0L7-7 


INC 


NBHPAG 




403 




L0Y 


NBHPAG 




409 




CPY 


43 


darniar *c 




ran »x*cut* 


? 




410 




BCC 


COL7-3 


non 


41 1 










412 




JSR 


CROUT 




413 




INC 


TRANS I T2 




414 




LDA 


TRANSIT2 




413 




CMP 


SIZE 




414 




BCC 


C0L7-2 




417 




8CS 


C0L7-1 


-jmp 


41 8 


C0L7-9 


RTS 




•or t i a 



419 
420 

421 »Dump touta* ligna* pour 1 colonn* 

422 ii '■ ■ —— — — 

423 LINE7 
424 
423 
424 
427 
428 
429 

430 LINE7-2 
431 

n* 

432 
433 
434 
435 

*ur 1 

434 
437 
438 
439 
440 



441 
442 
443 
444 



i gn * . 





a 




JSR 


GRAPHICS 




LDA 


SCRNMAXV 


1-24 


ASL 






ASL 






ASL 






STA 


VERTICAL 


8-192 


DEC 


VERTICAL 




LDA 


VERTICAL 


sai *i • 1 ig 


LDX 


NO 




LDY 


•0 




JSR 


HPOSN 


-> GBASL 


JSR 


8YTE7 


dump 1 Tab 


i gn* 






LDA 


SCRNMINV 


0-23 


ASL 






ASL 






ASL 






CMP 


VERTICAL 


dtrniiPt 1 


BNE 


LINE7-2 


non 


RTS 







443 aSaisi* oct»t» pour 1 

onn* 

444 ii 



tab *ur 1 col 



447 

448 

449 

450 

451 

432 

433 

434 

433 

434 

437 

438 

439 

440 

441 

442 

443 

444 

443 

444 

447 

448 

449 

470 

471 

472 

473 

»74 

473 

474 

477 

478 

479 

480 



BYTE7 - a 

LDY HORIZON lar oct*t 

LDA (GBASL) ,Y 

AND MASK1 

STA SAVEBYTE 

INY 

LDA (GBASL), Y 2*m* oct*t 

AND MASK2 

STA MATRIX 

•Matrica inwr%tt da* oct*t« 

TSX 

LOA MASK1 
MERGE7M ASL SAVEBYTE 
PHP 
ASL 
BCC 
PLP 
ROL 
CMP 



MERGE7- 1 



MATRIX 
40 

BNE MERGE7-1 
TXS 

•6t*nd matrica *i tailla larga 

1,2,4 



SUAP7M 
SU1AP7-2 



LDX 


SIZE 


DEX 




BEQ 


PIXL7" 1 


TXA 


; 1.3 


PHA 




EOR 


"7.000000 1 


TAY 


: 3.1 


LSR 


MATRIX 


PHP 




PLP 





481 


PHP 




482 


ROR 


SAVEBYTE 


483 


DEX 




484 


BPL 


SUJAP7" 2 


483 


PLP 




484 


PLA 




487 


PHA 




488 


TAX 




489 


DEY 




490 


BPL 


SUAP7" 1 


491 


PLA 




492 


LDA 


SAVEBYTE 


493 


STA 


MATRIX 








O' J "rirtnu ti 


1 * S 


b<F* d* 1 a 


our c 






494 PIXL7" 1 


CLC 




497 


LDX 


48 


498 P!XL7 _ 2 


ROL 


MATRIX 


499 


PHP 




70 


DEX 




701 


BNE 


PIXL7 - 2 


702 


LDX 


• 8 


703 PIXL7-3 


PLP 




704 


ROL 


MATRIX 


703 


DEX 




704 


BNE 


PIXL7" 3 


707 


JMP 


DELIVER 


708 


AST 


70 


709 












711 •Commanda* da* Param*tr* 














71 3 HGR 


_ 


a 


71 4 


LDY 


4 1 


713 


LDA 


(TXTPTR) Y 


7r4 


CMP 


4' 3' 


717 


PHP 




7 1 3 


[ DA 


4420 


71 9 


pi p 
ri_r 




7?n 


□ajc 

tSNC 




791 


JSR 


CHRGET 




( DA 
— — 


#440 


72 3 


BNE 


HGR - GO 


7*74 MRP? 






7-5 — 


1 fiA 


a»**u 


774 HfiRTiO 


LDX 


HPAG2 


727 


STX 


HPAG3 


728 


LDX 


HPAG1 


729 


STX 


HPAG2 


730 


STA 


HPAG 1 


731 


RTS 




732 






733 TAB 




a 


734 


JSR 


GETBYTC 


733 


CPX 


4MAXUI0TH 


734 


8CS 


PARM"KO 


737 


TXA 




738 


LDX 


TAB2 


739 


STX 


TAB3 


740 


LDX 


TAB I 


741 


STX 


TAB2 


742 


STA 


TAB1 


743 


JSR 


CHKCLS 


744 


JMP 


DECRTXT 


745 






744 INVERSE 


— 


a 


747 


LOA 


44FF 


748 


STA 


NEGATIVE 


749 


RTS 




750 FLASH 




a 


731 


LDA 


4480 


732 


STA 


DBSTRI KE 


733 


LDA 


4-L" 


754 


STA 


DUMPTYPE 


733 


RTS 




734 






737 ROT 




a 


738 


JSR 


GETBYTC 


739 


CPX 


44 


740 


BCS 


PARM-KO 


741 


CPX 


42 


742 


BCC 


ROT -2 


743 


LDA 


•480 


744 


STA 


FLIPFLAQ 


743 


DEX 




744 


DEX 




747 ROT" 2 


STX 


ROTATION 


748 PARM-X 


JMP 


0ECRTXT 


749 PARM-KO 


PLA 




770 


PLA 




771 


PLA 




772 


PLA 




773 


JMP 


I LQTYERR 


anti ty 






774 






773 SCALE 




a 


774 


JSR 


GETBYTC 


777 


CPX 


43 


778 


BCS 


PARM-KO 


779 


CPX 


43 


780 


BEQ 


PARM-KO 


781 


STX 


SIZE 



a ma t r i c * 2 p 



hgr3 7 



-jmp 



4FF 



i I I #g* 1 qu 



792 •Otttrmint »iz»2 (pour rot"0> 



Pom's n° 17 



31 



'93 




LDA 


• 15 




794 




STA 


SI2E2 




795 




TXA 






796 


SCALE " 2 


LSR 


SIZE2 


7,3,1 


737 




LSR 






799 




BNE 


SCALE * 2 




789 




8EQ 


=ARM"X 


-jmp 


790 










791 


3CRN 


- 


• 




79? 




JSR 


GETBYTC 


0-39 


793 




STX 


3CRNM I NH 




794 




ST* 


SCRUIDTH 




79? 




JSR 


CHKCOM 




794 




JSR 


GET8YT 


1-40 


797 




TXA 






798 




8EQ 


PAPfi " KQ 


rnaxh=0 


799 




CPX 


■41 




800 




BCS 


PARM" KO 


maxh >40 


901 




CPX 


SCRUIIDTH 




90 2 




sec 


PARM " KO 


maxh <m i nh 


30 3 




BEQ 


3 ARM " KO 


maxn"Ti i nn 


304 




STX 


SCRNMAXH 




90 5 










30 9 




JSR 


CHKCOM 




30 7 




JSR 


GET BYT 


0-23 


30 8 




STX 


SCRNMINV 




30 9 




STX 


SCRUIDTH 




31 




JSR 


CHKCOM 




31 1 




JSR 


GETBYT 


1-24 


81 2 




TXA 






31 3 




BEQ 


PARM* KO 


maxv"0 


314 




CPX 


• 25 




315 




BCS 


PARM" KO 


max* > 24 


31 6 




CPX 


SCRUIDTH 




31 7 




9CC 


PAPM-KO 


max v <m i nv 


318 




BEQ 


PARM * KO 


rr»»xv-*n i n« 


919 




STX 


SCRNMAXV 




820 




JSR 


CHKCLS 


) 


321 










822 


DECRTXT 


- 


• 


sou-trai t 


323 




LDX 


TXTPTR 


1 da 


924 




PHP 




-txtptr 


925 




DEV. 






326 




STX 


TXTPTR 




927 
329 




PLP 
BNE 


DECRTXT2 




929 




DEC 


TXTPTR* 1 




830 


DECRTXT2 


RTS 






93 1 




AST 


70 




332 










833 
834 


•Rappal das cwnunflH 




835 










836 


HELP 




• 




937 




LDY 


»0 




338 


HELP2 


LDA 


MSGHELP.Y 




839 




BED 


HELP3 




840 




JSR 


COUT1 




841 




INY 






842 




BNE 


HELP2 


-jmp 


343 


HELP3 


PLA 






844 




PLA 






845 




JMP 


CHRGET 




346 




AST 


70 




847 
348 


















349 
350 


•Resa t : 


lor 1 1 • d'urganca 












851 


RESET 




# 




852 




JSR 


PURGE 




853 




TSX 






854 




STX 


SAV STACK 




355 




JSR 


EXIT 




856 


Rasat n 


JMP 
Drmal 


(SAVRESET) 


rt tour au 


8S7 


PURGE 




• 




858 


•via* i • 


bu**ar da 1 ' impr iman ta 


859 




LDA 


•0 




860 




TAX 






861 




TAY 






862 




LDA 


•DEL 




863 
864 


PURGE " 2 


STA 
DEX 


FLUSH 




3»5 




BNE 


PURGE" 2 




866 




DEY 






86 7 




BNE 


PURGE" 2 




368 




RTS 






869 




AST 


70 





870 
871 
872 

873 •Plio-*lop: rotation «rjn 



374 «—=.=—»-— 

375 -1 - PIXLHPOS 
87o h2 - "MXLVPOS 
877 VI - MASK 1 
978 V2 - MASK2 
97' CLIP - • 

980 8IT FLI PFLA6 rot>!' 

8B1 BPL FLIP" 8 nonisortia 

382 LDX »3-l 

883 STX NBHPAG 

384 =LIP-0 LDX NBHPAG 

385 LDA HPAG0 ,X 

386 BEQ FLIP'7 .nutil'Sa 
38 7 STA HPAG 

388 LDA «0 

389 STA VI 

390 LDA «191 
991 STA V2 
892 

893 FLIP" 05 LDA »0 

894 STA HI 

895 LDA «39 

896 STA H2 
397 LDA VI 

898 LDX »0 

899 LDY «0 

900 JSR HPOSN 

901 LDA GBASL 

902 STA 3AVGBASL 
90 3 LDA GBASL* 1 

904 STA SAVGBASL-l 

905 LDA V2 

906 LDX «0 

907 LDY «0 

908 JSR HPOSN 
909 

910 FLIP-1 LDY HI 

911 LDA (SAVGBASL).Y 

912 JSR FLOP 

913 P>*> 

91 4 LDY H2 

915 LDA ' GBASL' , Y 

916 JSR FLOP 

917 LDY HI 

918 STA CSAVGBASD.Y 

919 PLA 

920 LDY H2 

921 STA < GBASL). Y 

922 l*C HI 

923 DEC H2 

924 BPL FLIP-1 

925 INC VI 

926 DEC V2 

927 LDA V2 

928 CMP »»5F 

929 BNE FLIP" 05 

930 FLIP" 7 DEC NBHPAG acran wii/ 

ant ? 

931 BPL FLIP-0 

932 FLIP" B RTS 
933 

934 FLOP - • 

935 LDX »8 

936 FLOP" 1 ROL 

937 PHP 

938 DEX 

939 8N£ FLOP - 1 

940 LDX «7 

941 FLOP" 2 PLP 

942 ROL 

943 DEX 

944 BNE FLOP" 2 

945 ROL 

946 PLP 

947 ROR 

948 RTS 
949 

950 •■■ ■ ' 



951 «StocKaga das Constanta* 

953 

954 •Paramatr»s par da*aut: 

?«■' DEFAULT DFB 0.0,0,0,1,7,0,0.0,0,4 
0.0.24.0.0,0 

956 

957 •Sauuao.arO* da I " m» i ponn*m»n t : 

958 SAVAMPER DA SFF38 

959 SAVEAREA DA 0,0.0,0,0.0,0,0 

960 SAVCSW DA »FDF0 

961 SAVRESET DA »FF69 

962 SAVSTACK DFB »FF 
963 



964 


•Constanta* au progr a/rana ! 


965 


MASKTABL - 


a da a 1 6 




pour 


scala-1/2/4 


966 


DFB 


7.0 1 1 1 1 1 1 1 ,7.00000001 


967 




DFB 


540 1111110 ,7.0000001 1 


968 




DFB 


•/.on u 100.7:000001 u 


969 




DFB 


X0H1 1000 ./"00001 1 1 1 


970 




DFB 


y.o 1110000 . >:o oo 1 1 1 1 1 


971 




DFB 


7.01 iooooo ,/.ooi 1 1 1 1 1 


972 




DFB 


7.01000000 ,7.01 1 1 1 1 1 1 


973 




DFB 


0,0 


974 




DFB 


7.00001 1 1 I ,7.00000000 


975 




DFB 


7.oi i ioooo .7.00000001 


976 




DFB 


7.0001 1 1 10 ./.oooooooo 


977 




DFB 


y.o\ iooooo./.ooooooi 1 


978 




DFB 


7.001 1 1 100 .7.00000000 


979 




DFB 


■<oioooooo ,7:000001 1 1 


980 




DFB 


y.o I 1 1 1000 ,7.00000000 


981 




DFB 


0,0 


982 




DFB 


•/"0000001 1 ,7.00000000 


983 




DFB 


X00001 100.7.00000000 


984 




DFB 


7.001 10000 .7.00000000 


985 




DFB 


xoioooooo ,7.00000001 


986 




DFB 


7.000001 10 ,7.00000000 


987 




DFB 


7.0001 1000.7.00000000 


988 




DFB 


7.01 100000.7.00000000 


989 




DFB 


0,0 


990 


CMDNAME 


DFB 


S91 HGR 


991 




DFB 


»90 HGR2 


992 




DFB 


•CO TAB< 


993 




DFB 


*9E INVERSE 


994 




DFB 


»9F FLASH 


995 




DFB 


*98 ROT- 


994 




DFB 


*99 SCALE- 


997 




DFB 


»D7 SCRNi 


998 




DFB 


SBA ' (PRINT) 


999 


CMDADDR 


DOB 


HGR-1 


1000 




DDB 


HGR2-1 


1001 




DDB 


TAB- 1 


1002 




DOS 


INVERSE-1 


1 003 




DDB 


FLASH- 1 


1 004 




DDB 


ROT-1 


1005 




DDB 


SCALE- 1 


1006 




DDB 


SCRN-1 


1007 




DDB 


HELP-1 


1008 
1009 


•Rappa 1 


das c 


ommandas f ha 1 p) : 


1010 


MSGHELP 


- 


a 


101 1 




DFB 


CR.CR 


1012 




INV 


••EPSON HGR SCREEN DU 




MP •• 






1013 




DFB 


CR 


1014 




ASC 






VRANE" 






1013 




0FB 


CR , CR , CR 


1016 




IMV 


"8. PPt» - 


101 7 




ASC 






/HGR3] 






1018 




DFB 


CR 


1019 




ASC 


• C, INVERSE] • 


1020 




DFB 


CR 


1021 




ASC 


• t .FLASH] " 


1022 




DFB 


CR 


1023 




ASC 


• C ,ROT"0/1]" 


1024 




OFB 


CR 


1023 




ASC 


• I .SCALE- 1/274 ]" 


1026 




DFB 


CR 


1027 




ASC 


■ t ,SCRN<C1 ,C2,L1 ,L2 




> 1- 






1028 




DFB 


CR,0 


1029 








1030 


•Codas da control a da* i mpr i man t a* 




Epson 






1031 


MSG0 




a 


1032 




DFB 




1033 


MSG1 




a 


1034 




00 


TUINLF 


1033 




DFB 


4 


1036 




ELSE 




1037 




DFB 


3 


1038 




FIN 




1039 




DFB 


■A- .ESC.-S- ,ESC,0,-R' 




, ESC 






1040 


MSG2 




• 


1041 


PIXLNOl 


DFB 





1042 PIXLN02 


DFB 





1043 DUMPTYPE DFB 


■K- 


1044 




DFB 


ESC 


1043 








1046 




SKP 


70 


1047 




LST 


ON 



1048 END 



Recapitulation 

•8000 .868B 

8000- AD F6 03 C? 4A DO 07 AD 

8008- F7 03 C9 80 F0 IB AD F6 

8010- 03 8D 74 85 AD F7 03 8D 

8018- 75 85 A? 4C 8D F5 03 A9 



8020- 4A 8D F6 03 A? 80 8D F7 

8028- 03 A9 00 85 48 60 00 00 

8030- 00 00 01 07 00 00 00 00 

8038- 28 00 13 00 00 00 00 00 

8040- 00 00 00 00 00 00 00 00 

8048- 00 00 C? 8A F0 03 6C 74 

8050- 85 A2 OF BD 64 85 ?D 2E 



80 58- 


80 


CA 


10 


F7 


A9 


CB 


3D 


8A 


8060- 


86 


20 


Bl 


00 


AO 


01 


DO 


08 


8068- 


20 


Bl 


00 


F0 


2C 


20 


BE 


DE 


80 70- 


A? 


80 


48 


A? 


67 


48 


20 


B7 


8078- 


00 


F0 


1C A2 


08 


DD 


BB 


35 


80 80- 


F0 


08 


CA 


10 


F8 


68 


68 


4C 


8038- 


C? 


DE 


8A 


OA 


AA 


BD 


C4 


85 



Pom's n° 17 



80 90- 
8098- 
80A0- 
S0A8- 
80B0- 
80B8- 
80C0- 
80C3- 
30D0- 
8008- 
80E0- 
80E3- 
80F0- 
80F8- 
8100- 
8108- 

81 10- 
81 18- 
8120- 
8129- 
9130- 
8138- 
81 40- 
8148- 
8150- 
9158- 
8160- 
8168- 
81 70- 
31 79- 
81 30- 
8138- 
3190- 
8198- 
31A0- 
81A8- 



81 
81 C0- 
81C8- 
81 DO- 
8108- 
81 EO- 
81ES- 
81F0- 
81F3- 
8200- 
8208- 
8210- 
8218- 
8220- 
8228- 
8230- 
8233- 
8240- 
8248- 
8250- 
8258- 
8260- 
8263- 
8270- 
8278- 
8230- 
8233- 



48 E3 80 

68 D3 AD 

30 AC 30 

80 38 ED 

AE 32 30 

46 80 00 

44 80 80 

43 30 8E 

2F 80 10 

2E 43 80 

36 CA 10 

AD 39 86 

86 AD 88 

38 36 AO 

20 80 3D 

60 36 80 

30 FO 08 

80 FO 3 

A2 45 4C 

F7 A2 OF 

CA 10 F8 

A5 37 80 

3D 88 35 

85 BA- 3E 

F2 03 A9 

6F FB 20 

95 FE 20 

7C 86 20 

AO 07 B9 

88 10 F7 

20 CO 82 

95 00 CA 

AE 8A 85 

36 AD 37 

35 80 F2 

F3 03 4C 

10 13 8D 

08 AD 00 

CO C9 83 

83 86 20 

60 AD 39 

8C 3F 80 

80 98 4A 

80 99 AO 

34 80 FO 

3B 80 FO 

06 AD 40 

3F 80 EE 

AO 00 20 

80 OA AA 

80 95 00 

68 4A CD 

42 82 EE 

CO 03 90 

DB 81 20 

88 8C 3E 

3E 80 CC 

64 82 A2 

10 FA 30 

30 20 73 

10 F7 60 

A9 30 8D 

80 48 80 

FO 09 AO 



C4 85 

38 80 
30 FO 

39 80 
CA FO 
F7 8D 
89 36 
88 86 
07 E3 
OE 39 
F7 38 
ED 44 
86 ED 
3D 80 
80 18 
6D 35 
60 46 
60 46 
12 04 
85 00 
A5 36 
37 85 
AD F3 
3A 85 
84 80 
D7 84 
C7 84 
ED FO 
80 86 
AD 30 
A2 OF 
10 F8 
9A AO 

35 35 
3 AO 
6F FB 
10 CO 
CO 10 
FO BE 
ED FO 
80 OA 
AC 3F 
4A 4A 
00 8C 

3 20 

36 86 
80 80 
3F 80 

1 1 F4 
48 A5 
E8 A5 
33 80 
47 80 
B3 20 



10 
80 



AO 
80 



31 
EE 



38 80 

OE F6 

E8 A9 

32 18 

A2 00 

42 80 

Al 00 

42 80 



48 60 68 
38 ED 37 
7 AD 3A 
80 46 30 
06 18 60 

46 80 SD 
A2 00 8E 
A2 02 2C 
OE 44 80 
86 2E 33 

13 38 
80 89 
43 80 80 
DO 05 A9 
AD 46 80 
30 AE 3C 
80 AE 3B 
80 90 05 
C9 65 BO 
90 76 35 
80 86 85 
AO F2 03 
03 80 39 
A9 BA 3D 
F3 03 20 
A9 01 20 
AO 03 B9 

88 10 F7 
20 ED FD 
80 FO 51 
BD 76 85 
20 D7 84 
86 85 85 
37 AD 88 

89 85 3D 
AD CO 
C? 9B DO 
FB 80 10 
AO 03 B9 
88 10 F7 
OA OA A8 
80 8C 40 
CD 3A 80 

47 80 BE 
4A F9 BE 
E6 88 30 
3F 80 AD 

48 A2 00 
68 2D 33 

26 6D 37 

27 95 00 

90 D3 20 
AC 47 80 
8E FD 4C 
AC 37 80 
3E 80 AC 
BO IB 20 

00 CA CA 

01 80 41 
2E 41 80 
8E 45 80 
AD 32 30 
20 41 80 
OD 45 80 



3290- 
8298- 
82A0- 
32A8- 
32B0- 
82B8- 



32C3- 
82D0- 
82D8- 
S2E0- 
82E3- 
82F0- 
82FS- 
8300- 
8308- 
8310- 
3313- 
3320- 
3323- 
8330- 
8333- 
8340- 
8348- 
8350- 
8353- 
3360- 
8363- 
8370- 
8379- 
8380- 
3388- 
3390- 
8398- 
83A0- 
83A8- 



80 45 30 
CE 48 30 
E3 DO 

32 80 
80 40 2E 
FB 80 90 
AC 37 80 
00 8C 49 
3E 80 CD 

33 80 3D 
C9 4 DO 
83 FO 05 
68 OA OA 
49 80 OA 
43 80 FO 
80 44 30 
BE 34 80 



DA 
90 



83C0- 
83C3- 
83D0- 
8308- 
83E0- 
S3E3- 
83F0- 
83F8- 
8400- 
8408- 
8410- 
8418- 
8420- 
8423- 
8430- 
8433- 
8440- 
8448- 
8450- 
8458- 
8460- 
8468- 
8470- 
8478- 
8480- 
8483- 



30 33 EE 
CO 03 90 
49 30 AD 
90 95 BO 
AO 3A 80 
90 CE 3F 
00 AO 00 
83 AO 39 
3F 80 DO 
Bl 26 2D 
C8 Bl 26 
80 BA AD 
08 OA 90 
C9 00 00 
CA FO IF 
4E 45 80 
80 CA 10 
88 10 ED 
45 80 18 
08 CA 00 
45 80 CA 
AO 01 Bl 
20 28 DO 
60 DO 02 
8E 38 80 
80 8D 3D 
EO 64 BO 
8E 34 80 
80 80 36 
9C 84 A9 
A9 80 80 
8A 86 60 
BO 11 
80 31 
4C 9C 
99 El 
F2 EO 03 
A9 OF 80 
80 4A DO 
E6 8E 37 
20 
BO 

C2 FO CO 
DE 20 F3 
46 80 20 
8A FO A3 



4E 42 80 
FO 2 00 
AD 2F 30 

01 OA AA 
80 2C CI 
CO CA DO 
38 8C 3E 
30 EE 3E 
38 30 BO 

48 30 AD 

02 A9 03 
OE 48 30 
OA 60 48 
A8 B9 7B 
C3 C3 89 
AO 00 8C 
FO 03 20 
FO 5 86 
47 80 AC 
E4 20 8E 

49 80 CD 
38 60 20 
OA OA OA 
80 AO 3F 
20 11 F4 
90 OA OA 
E5 60 AC 
43 30 80 
2D 44 80 
43 30 OE 
F9 23 2E 
Fl 9A AE 
8A 48 49 
OS 28 08 
F8 28 68 
68 AO 48 
A2 08 2E 
F9 A2 08 
DO F9 4C 
B8 C9 33 
09 20 Bl 
A9 40 AE 
AE 3D 80 
30 60 20 
3F 8A AE 
AE 36 80 
30 20 B8 
FF 80 2E 
2F 80 A9 
20 F5 E6 
02 90 07 



FO OB 
E4 E3 
OA AD 
AO 45 
CI 30 
EF 60 
80 AO 
30 AD 
65 2D 
32 30 
48 A8 
10 F8 
SO 60 
85 3D 
7B 85 
47 30 
4A F9 
E6 20 

47 80 
FD EE 
32 80 
AO 31 
80 3F 
80 A2 
20 65 
OA CD 
3E 30 

48 30 
80 45 
48 80 
45 80 
32 30 
02 A8 
6E 48 
48 AA 
80 8D 
45 80 
28 2E 
A3 82 
08 A9 
A9 
3C 80 
8E 3C 
F5 E6 
35 80 
8E 35 
DE 4C 
80 60 
CC 3D 
EO 04 
A9 30 




BE DE 
EO 29 



FO EE 
33 80 
FA FO 



SC 
F3 



3E 
Es 



C7 EC 

8E 38 

E6 3E 

BE DE 

EO 19 



4C 

EO 05 BO 
8E 32 80 
SA 4E 33 
DA 20 F5 
46 80 20 
8A FO CB 
46 30 90 
80 20 BE 
39 80 3E 
20 FS E6 
BO A4 EC 



8490- 46 80 90 9F FO 90 8E 3A 
3493- 80 20 83 DE A6 B3 09 CA 
34A0- 36 B8 29 DO 02 C6 89 60 
84A8- AO 00 B9 D6 85 FO 06 20 
84B0- FO FD C8 DO F5 68 68 4C 
3488- Bl 00 20 C7 34 BA 8E 8A 
84C0- 85 20 83 31 6C 88 85 A9 
84C3- 00 AA A8 A9 7F 80 90 CO 
3400- CA DO FA 38 DO F7 60 2C 
8408- 31 80 10 75 A2 02 8E 47 
34E0- 80 AE 47 80 BO 38 80 FO 
84E3- 63 85 E6 A9 00 8D 43 30 
84F0- A9 BF 30 44 80 A9 00 8D 
84F3- 41 30 A9 27 3D 42 80 AO 
8500- 43 80 A2 00 AO 00 20 11 
8503- F4 A5 26 85 00 A5 27 85 
8510- 1 AD 44 80 A2 00 AO 00 
8518- 20 II F4 AC 41 80 Bl 00 
8520- 20 52 35 48 AC 42 80 Bl 
3523- 26 20 52 85 AC 41 80 91 
8530- 00 68 AC 42 80 91 26 EE 
8538- 41 80 CE 42 80 10 DC EE 
8540- 43 80 CE 44 80 AO 44 SO 
8548- C9 5F DO A9 CE 47 80 10 
8550- 90 60 A2 08 2A 08 CA DO 
8558- FB A2 7 28 2A CA DO FB 
3560- 2A 28 6A 60 00 00 00 00 
8563- 01 07 00 00 00 00 23 00 
8570- 18 00 00 00 58 FF 00 00 
8573- 00 00 00 00 00 00 00 00 
8580- 00 00 00 00 



8588- 
8590- 
8598- 
85A0- 
35A8- 
85B0- 
85B8- 
85C0- 
85C3- 
8500- 
85D8- 
35E0- 
35E3- 
85F0- 
85F8- 
8600- 
8603- 
8610- 
8618- 
8620- 



00 FO FD 
69 FF FF 7F 01 7E 03 7C 
07 78 OF 70 IF 60 3F 40 

IE 



7F 00 00 OF 00 70 01 

00 60 03 3C 00 40 07 78 

00 00 00 03 00 OC 00 30 

00 40 01 06 00 18 00 60 

00 00 00 91 90 CO 9E 9F 

98 99 D7 BA 83 C7 83 DA 

83 EC 34 09 84 OF 84 1A 

84 39 34 55 84 A7 8D 3D 
2A 20 05 10 13 OF OE 20 
08 07 12 20 13 03 12 05 
05 OE 20 04 15 00 10 20 
2A 80 DB C3 DO AO Bl B9 
B3 B4 AO CI CC C5 08 CI 
CE C4 D2 C5 AO CI D6 02 
CI CE C5 80 80 80 26 20 
10 12 23 AO DB D4 CI C2 
A8 D4 A9 DO AO DB AC C8 
C7 02 AF C3 C7 D2 B2 AF 

8628- C3 C7 D2 B3 DD 80 AO AO 

8630- OB AC C9 CE 06 C5 D2 03 

C5 DD 3D AO AO DB AC C6 

CC CI 03 C3 DO 80 AO AO 

3648- DB AC D2 CF 04 BD BO AF 

8650- Bl DO 80 AO AO 08 AC 03 

3658- C3 CI CC C5 BO Bl AF 82 

8660- AF 84 OD 80 AO AO OB AC 

8668- 03 C3 D2 CE A8 C3 Bl AC 

8670- C3 B2 AC CC Bl AC CC B2 

8678- A9 DO 3D 00 CE BO B8 09 

8680- 04 CI IB CO IB 00 02 IB 

8688- 00 00 CS IB 




Le Pacha 



Apple «*. //e. //c 



O Listez vds programmes Basic en avant et e 

IVIodifiez. inserez. effacez des car-acteres en plein 
ecran sans retire les lignes. 

O Recherchez toute chaine de caracteres. 

« 

O Choisissez vous-mgme les codes de controle d' HPH . 

O fvlodlfiez HP! : le flchler source est sur la dlsquette. 



150,00 F TTC franco (bon de commonde page 74). 



Puisque nous ne 
vous aviez oesoin, nous 



He 





1 \ 


Heap 1 


















Version CaU 




Mom r Paint 



Unc des plas grandes bibliotheques de logiciels 
programmes compatibles avec I'Applc He : jeux, 
gestion de base de donnees, analyse financiers 




a 3-3- 



© 



li 



l-l-l-LI_i-,l-U-,L 




- 1 I 1 




■ ! 



Un clavier 63 touches type AZERTY comprenant une accentuation complete ct des 
caracteres majuscules/minuscules integres. 

Qmnecteur Ommcteur Omneckur Comecteur Comieaeur pour k kefeur Conmcteur pour 

pour lasouris. pourk modem, pour TV. coukur. pour I mouiteur video, de disquelle externe. imprimank ou traceu 



lllllllll || IMI I 



(minim |i 




#•0 



Void comment 
I'&ran de haute 
tres facilement 
Si nous vous 
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Nos precedents articles destines aux 
utilisateurs du Macintosh portaient 
essentiellement sur le graphisme. 
Nous nous sommes cette fois penche 
sur la gestion des disquettes et, plus 
generalement, sur les entrees/sorties 
du Macintosh. Pour illustrer Ie fonc- 
tionnement de certaines routines du 
systeme. nous avons ecrit un pro- 
gramme qui permet d'obtenir simple- 



complet de n'importe quelle dis- 
quette. En effet. si le "finder" auto- 
rise la visualisation du contenu d une 
disquette. il ne permet pas un report 
aise sur papier et, de plus, 1'utilitaire 
en question nous cache plusieurs in- 
formations interessantes. 

Mode d'emploi 

Le programme est ecrit avec la ver- 
sion 2 du Basic Microsoft. Toutefois. 
les explications qui vont suivre per- 
mettront a ceux d'entre-vous qui ne 
possedent pas encore cette version 
de l'adapter au "vieux" Basic. 
L' utilisation du programme est tres 
simple et ne demande que tres peu 
d'explications. Le menu "catalogue" 
permet d'obtenir les informations sur 
les fichiers soit sur imprimante. soit a 
l'ecran. fichier par fichier. 

Macintosh 128K 

Avec ce modele, 1' impression ne peut 
se faire qu'en qualite "brouillon" Si 
une autre option est demandee, le 
programme ne se "plante" pas, mais 
passe a I' instruction suivante apres 
quelques instants d' hesitation. Pour 
le reste, le fonctionnement est le 
meme sur une version 512K ou 
128K. mise a part la vitesse d' execu- 
tion, sensiblement moins elevee sur 
un 128K. 

Informations fournies par le 
programme 

Comme il est inutile d'indiquer. par 
exemple, ce que veut dire "nombre 
de fichiers sur la disquette", nous ne 
parlerons ici que des informations 
dont la signification n'est pas evi- 
dente. 

Informations sur la disquette 
(volume) 

Protection logicielle : i! s'agit d'un in- 
dicateur dans le catalogue de la dis- 
quette. auquel 1'utilisateur n'a norma- 
lement pas acces. Lorsque cet 
indicateur est positionne. il n'est plus 
possible de modifier le contenu de la 
disquette, tout comme avec la pro- 
tection mecanique situee sur le boi- 



tier de la disquette. 

Protection materielle : la protection 
mecanique contre 1'ecriture citee ci- 
dessus. 

Premier bloc du catalogue : le nu- 
mero indique correspond au premier 
des blocs logique (512 octets) conte- 
nant les informations sur les fichiers. 
C'est dans cette zone que notre pro- 
gramme va chercher les informations. 

Nombre de blocs sur la disquette 
(sauf blocs du catalogue) : cette va- 
leur varie en fonction de la taille des 
blocs. 

Nombre d'octets par bloc : generale- 
ment 1024 octets. 

Nombre minimum d'octets succes- 
sifs : zone physique minimale pour 
que le systeme alloue un bloc a un 
fichier. 

Premier bloc alloue : premier bloc 
occupe par un fichier. 

Premier numero de fichier disponi- 
ble: le numero qui sera attribue au 
prochain fichier cree. La valeur indi- 



bre de fichiers presents sur la dis- 
quette + 1. Ceci est du au fait que la 
destruction d'un fichier n'entraine 
pas la mise a jour des numero de fi- 
chiers. Ainsi, s'il y a 4 fichiers sur la 
disquette et que nous detruisons le 
quatrieme. le prochain fichier cree se 
verra affecter 5 comme numero. le 
numero 4 n'etant plus utilise. 

Informations sur les fichiers 

Type : indique le type de fichier qui 
peut etre. par exemple. "TEXT" 
pour un fichier cree a partir du Basic, 
ou encore "APPL" pour un pro- 
gramme d'application. 

Auteur : ceci peut etre les initiales du 
createur du programme, mais il s'agit 
beaucoup plus souvent d'une abre- 
viation du nom du programme d'ap- 
plication qui a genere le fichier. Ainsi. 
un fichier de caracteres issu de "Font 
Mover" contient "FMOV" dans cette 
zone: si on remplace "FMOV" par 
autre chose. "Font Mover" ne recon- 
naft plus son enfant. 

Donnees et ressources : les fichiers 
du Mac sont divises en deux zones : 
une partie "donnees" et une partie 
"ressource". Un document MacWrite. 
par exemple. sauvegarde avec I' op- 
tion "le document entier". contient 
dans la partie "donnees". le texte 
proprement dit. alors que la partie 
"ressource" contient les informations 
sur les polices de caracteres. les 
regies, etc... Certains fichiers n'utili- 
sent que la partie "donnees" (un fi- 



chier "TEXT" cree a partir du Basic), 
d'autres seulement la partie ressource 
(le Basic Microsoft par exemple). 
Lorsque qu'une des deux zones n'est 
pas utilisee, le programme affiche 
"0" pour le premier bloc. 
Bundle : nous avons laisse le mot an- 
glais car "tas" ou 



pas tres elegant. Ce terme 
est affecte au fichier regroupant plu- 
sieurs "sous-fichiers", c'est le cas du 
fichier systeme et de la plupart des 
programmes d'application. 

Le programme 

La seule difficulty rencontree pour 
1'ecriture de ce programme etait 
d'obtenir les informations situees sur 
la disquette. ce qui est impossible 
avec seulement le Basic. Nous avons 
du faire appel a quelques routines 
faisant partie du systeme de gestion 
de disquettes du Macintosh. Les ex- 
plications qui vont suivrent porteront 
done essentiellement sur 1' utilisation 
de ces routines. 

Lecture des informations sur 
le volume 

FILES! . legerement de- 
son utilisation normale. 
retourne dans F$ le nom du volume 
(la disquette) suivi de ":" et du nom 
du fichier selectionne. Dans le cas 
present, seul le nom du volume nous 
interesse. Pour conserver unique- 
ment ce nom. il suffit de reperer le 
separateur. l instrucrion LEFTS fait le 
reste. On peut noter que Ton 
conserve dans la nouvelle chafne le 
separateur. indispensable a la routine 
permettant de lire les informations 
sur Ie volume. On appelle ensuite la 
routine en langage machine VO- 
LUME, dont le point d' entree se 
trouve dans le 75eme element du ta- 
bleau de variables entieres C. en lui 




octets contenant la longueur de la 
chafne F$ et trois octets contenant 
l'adresse du premier caractere de la 
chaine (voir l'article "CALL : exem- 
ple d'application". dans le numero 
16 de Pom's). 

Nous sommes maintenant dans la 
routine en langage machine. Ap.'es 
avoir fait la liaison indispensable lors- 
qu'il y a passage de parametres. 
nous chargeons l'adresse de base du 
tampon TABLE (84 octets) dans le 
registre d'adresse AO (pour toutes les 
routines d' entrees/sorties, il faut re- 
server un tampon de memoire. 
pointe par AO au moment de Tap- 
pel). On fait ensuite une copie de AO 
dans Al, qui va nous servir comme 
pointeur pour mettre a zero le tam- 
pon TABLE. A la ligne 6. on charge 
la valeur 20, ce qui correspond au 
nombre de longs mots (4 octets) 
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moins un, dans le registre de don- 
nees DO. La boucle BINIT met a 
zero qualre octets a chaque tour, ceci 
en partant de !"adresse de base du 
tampon, jusqu'a ce que le contenu 
du registre DO soit egal a -1. Cette 
petite manoeuvre n est pas indispen- 
sable lors de la lecture des informa- 
tions sur le premier volume, puisque 
le demarrage de ["execution du pro- 
gramme Basic remet a zero le ta- 
bleau de variables C qui contient le 
tampon TABLE, par contre. si on ne 
le vide pas pour les lectures suivan- 
tes. le fonctionnement de la routine 
serait perturbe. 

Nous chargeons. a la ligne 9. 
l'adresse de base du tampon de me- 
moire "NOM". destine a recevoir le 
nom du fichier. dans le registre 
d'adresse A2. et nous en faisons une 
copie dans l'adresse pointee par AO 
+ 18. L'adresse ou se trouvent les 
informations sur la chaine F$ est, 
depuis le CALL, dans la pile dont le 
sommet est pointe par A6 (voir nu- 
mero 16). Entre notre adresse et le 
sommet de la pile, nous trouvons 
dans l'ordre l'ancienne valeur de A6 
(4 octets) et l'adresse de retour au 
Basic (4 octets); l'adresse des infor- 
mations sur la chaine est done a 8 
octets de l'adresse pointee par A6. 
MOVE.L 8(A6).A1 effectue une 
copie de l'adresse en question dans 
le registre Al. Nous avons vu prece- 

i sur la 



quant la 

or. un nom de volume contient au 
maximum 28 caracteres ce qui fait 
que seul le second octet est signifiant 
dans le cas qui nous interesse au- 
jourd'hui. MOVE.B 1(A1),(A2) + 
place une copie de cet octet dans le 
premier octet du tampon NOM 
pointe par A2; le registre A2 est 
auto-incremente et pointe maintenant 
sur le second octet du tampon NOM. 

A la ligne 13. on place dans le regis- 
tre D2. en allant du poids fort au 
poids faible, 1' octet contenant le 
nombre de caracteres et l'adresse de 
la chaine sur trois octets. L'instruc- 
tion ANDI.L #$00FFFFFF.D2 force a 
les 8 bits de poids fort de D2, ce 
qui nous permet d'obtenir une 
adresse valide. On fait une copie du 
registre D2 dans le registre d'adresse 
A3 (le 68000 ne permettant pas un 
"AND" avec un registre d'adresse, 
nous sommes oblige de passer par 
un registre de donnees. 

La boucle des lignes 16 a 18 fait une 
copie de la chaine, sans se soucier 
de sa longueur, depuis sa position 
initiale vers le tampon NOM. Enfin, 
on decremente le mot pointe par AO 
+ 28 de 1, qui passe de a $FFFF 
soit. en complement a deux, une va- 
leur negative. 



Nous pouvons maintenant appeler la 
routine du Macintosh qui permet de 
lire les informations sur la disquette: 
nous 1'appelerons 1NFOVOL. Pour 
appeler la routine INFOVOL. il faut 
introduire dans le programme le 
code illegal $A007 (voir Pom's 16 : 
"Appel des routines en ROM"). 

Avant d'etudier les informations re- 
tournees par la routine, une petite re- 
capitulation s'impose. Avant d'appe- 
ler INFOVOL. il faut avoir dans un 
tampon pointe par AO : 

18(A0) : l'adresse (32 bits) ou se 
trouve un octet contenant le nombre 
de caracteres dans la chaine. suivi 
des N caracteres la constituant. y 
compris le 

28(A0) : une valeur negative sur 
deux octets. 

ci est la methode employee par notre 
programme pour indiquer le volume 
a la routine. Cependant. il existe 
d'autres possibility : si AO + 28 est 
positif. la routine utilise cette valeur 
(qui correspond a l'ordre d'insertion 
des disquettes dans le ou les lecteurs) 
pour determiner le volume. Si AO + 
28 est negatif, la routine utilise le 
nom du volume, dont l'adresse est 
dans AO + 18 (e'est le cas de notre 
programme). Si AO + 28 est egal a 
0. la routine utilise le numero de re- 
ference de la disquette, situe en AO 
+ 22. 



Informati 
par INFOVOL 

Les informations sont retournees 
dans le meme tampon que celui qui 
nous a servi pour l'appel de la rou- 
tine. Nous y trouvons : 

16(A0) : un code d'erreur sur deux 
octets. Cette zone est a zero si tout 
e'est bien passe. 

18(A0) : l'adresse (4 octets) du nom 
du volume. 

22(A0) : le numero de reference de 
la disquette (2 octets). 
30(A0) : la date et l'heure de crea- 
tion du volume, sous la forme de 4 
octets contenant le nombre de se- 
condes ecoulees depuis le ler janvier 
1904 a 12H00 ! 

34(A0) : la meme chose, mais cette 
fois pour la date et l'heure de la der- 
niere modification. 

38(A0) : un indicateur sur deux 
octets. Si le bit 15 (poids fort) est a 
1, la disquette est protegee par logi- 
ciel. Si le bit 7 est a 1, la protection 
mecanique contre l'ecriture est utili- 
see. 

40(A0) : nombre de fichiers sur la 
disquette (2 octets). 

42(A0) : premier bloc du catalogue 
(2 octets). 

44(A0) : nombre de blocs de 512 
octets dans le catalogue (2 octets). 
46(A0) nombre de blocs sur la dis- 
quette (ne comprend pas les blocs 



du catalogue) sur 2 octets. 
48(A0) : nombre d' octets par bloc 
(sauf pour les blocs du catalogue) sur 
4 octets. 

52(A0) : nombre minimum d'octets 
successifs pour que le systeme alloue 
un bloc a un fichier (4 octets). 
56(A0) : premier bloc alloue a un fi- 
chier (2 octets). 

58(A0) : premier numero de fichier 
disponible (4 octets). 
62( AO) : nombre de blocs non utili- 
ses. 

Lorsque nous retournons au Basic, 
1' exploitation de ces donnees ne po- 
sent pas de probleme puisque le 
tampon TABLE de la routine en lan- 
gage machine se trouve en fait au 
debut du tableau de variables C, qui 
contient aussi le tampon NOM et la 
routine en langage machine. 

Notre programme Basic doit exploiter 
des valeurs non signees retournees 
par une routine en langage machine; 
il faut done prendre quelques pre- 
cautions. En effet, les valeurs conte- 
nues par des variables entieres sont 
exprimees en complement a deux et 
peuvent etre a l'origine d'erreurs lors 
du calcul. par exemple. d'une don- 
nee ou adresse sur 32 bits, si une va- 
riable entiere contient un nombre su- 
perieur a $7FFF (32767). done 
negatif. 

A une expression du type : 

VALEUR! = A%(N) * 65536 
+A%(N + 1) 

on preferera ; 

A! = VARPTR(A%(N» 
VALEUR! = PEEK(A!) * 16777216 
+ PEEK(A! + ' 1) * 65536 
+PEEK(A! + 2) • 256 + PEEK(A! 

+ 3) 

Lecture des informations sur 
les fichiers 

Grace au travail effectue par la rou- 
tine INFOVOL. l'obtention des infor- 
mations sur les fichiers va etre gran- 
dement simplifies 

Le tampon TABLE contient. depuis 
l'appel de la routine INFOVOL, le 
numero de reference de la disquette 
(1 pour le lecteur interne. 2 pour le 
lecteur externe) dans AO + 22; nous 
n'avons done pas a nous soucier de 
ce parametre. Le seul parametre a 
passer a la routine en assembleur FI- 
CHIERS est le numero du fichier. 
compris entre 1 et N, ou N est la va- 
leur retournee dans AO + 40 par la 
routine INFOVOL. Apres avoir de- 
place N depuis la pile vers AO + 28, 
et place dans AO + 18 l'adresse a 
laquelle sera reporte le nom du fi- 
chier. nous appelons la routine qui 
permet d'obtenir les informations sur 
les fichiers (que nous baptisons IN- 
FOF1CH) avec le code illegal $A00C. 
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Pour la routine INFOFICH, il faut 
dans : 

18(A0) : I'adrcsse (4 octets) du tam- 
pon destine au stockage du nom de 
fichier, precede du nombre de carac- 
teres dans le nom. 

22(A0) : !e numero (2 octets) de re- 
ference du volume sur lequel se 
trouve le fichier (1 pour le lecteur in- 
terne, 2 pour le lecteur externe). 
28(A0) : le numero (2 octets) du fi- 
chier concerne. 

Comme pour la routine precedente. 
il existe plusieurs possibilites pour in- 
diquer a la routine INFOFICH le fi- 
chier a traiter : 

Si AO + 28 est positif, la routine re- 
tourne les informations sur le fichier 
correspondent au nombre positif. Si 
AO + 28 est egal ou inferieur a zero, 
la routine retourne les informations 
sur le fichier dont le nom (precede 



d un octets indiquant le nombre de 
caracteres de ce nom) est pointe par 
le contenu (4 octets) de AO + 18. Si 
deux fichiers situes sur des volumes 
differents portent le meme nom, les 
informations retournees correspon- 
dent au fichier place sur le volume 
specifie par AO + 22. 

Informations retournees 
par INFOFICH 

32(A0) : quatre caracteres ASCII 
pour le type de fichier. 
36(A0) : quatre caracteres ASCII 
pour une abreviation du nom de 
l'auteur ou du programme qui a ge- 
nere le fichier. 

40(A0) : drapeaux (2 octets). Si le 
bit 15 est a 1, le fichier est protege. 
Si le bit 14 est a 1. l'icone est invisi- 
ble. Si le bit 13 est a 1, le fichier re- 
proupe plusieurs "sous-fichiers". Si le 
bit 12 est a 1, le fichier est un "fi- 



chier systeme". 

42(A0) : quatre octets contenant la 
position de l'icone dans sa fenetre. 
Les deux octets de poids fort 
contiennent la position horizontale. 
les deux octets de poids faible la po- 
sition verticale. 

46(A0) : deux octets pour la fenetre 
ou apparait l icone. Si AO + 46 est 
egal a -3. l'icone apparait dans la 
fenetre de la corbeille. Si AO + 46 
est egal a —2, l'icone apparait sur le 
bureau. Si AO + 46 est egal a 0, 
l'icone apparait dans la fenetre du 
volume. Si AO + 46 est superieur a 
0, l'icone apparait dans la fenetre 
d'un dossier. 

48(A0) : numero du fichier sur 2 
octets. II s'agit du numero reel, qui 
ne correspond pas forcement a celui 
place dans AO + 28 avant l'appel de 
la routine. 

52(A0) : premier bloc pour la partie 



Oisquette Pom's 

Protection logicielle : Non 
Protection materielle : Non 

Nombre de fichiers sur la disquette : 

Premier bloc du catalogue : 

Nombre de blocs dans le catalogue : 

Nombre de blocs sur la disquette : 

Nombre doctets par bloc : 

Nombre minimum d octets successifs : 

Premier bloc alloue : 

Premier numero de fichier disponible 

Nombre de blocs libres : 

Nombre d'octets libres : 

DONrCES 




Fichier numero : 

Premier bloc de donnees : 

longueur logique 'donnees' : _ 
lonqueur physique 'donnees' : 
Premier bloc 'ressource' : 



*...jueur loqique 'ressource' : 

longueur phgsique ressource' : _ 
Icone inuisible 
Systeme 



_5CI1N 
_JIB 

22 
291 
21888 
Z25Z8 








RESSOURCE 



Mua. Type flu t. Bl d. Long. log Long.pny Bl d. Long log Long.pny Info. bureau Nob 



1 FMDR ERIK 











2 


7431 


8192 


DSQ IMU 


Bureau 


2 ZSVS MflCS 


182 


5120 


5120 


4 


153390 


153600 


UIS SVS SYSTEM 


3 PfiES MflCS 











187 


17664 


18432 


UIS SVS 


1 MRGF UR 1 TEH 


4 FMDR MflCS 











205 


46336 


47104 


UIS SVS 


FINDER 


5 flPPL QUIK 











251 


5632 


6144 


BUR UIS 


Cop ia da disqua 


6 zsvs noes 

7 ZSVS MflCS 

33 zsvs noes 


237 
259 



2048 
251 



2048 
1024 















UIS 
UIS 
UIS 


Presse— pop i ers 


260 


13595 


14336 


Rlbua 


10 nsB8 nsBfl 


274 


14029 


14338 








PRO DSQ UIS 


editeur 


11 TEXT 


288 


1720 


2048 








PRO OSQ UIS 


XL 


12 TEXT 


290 


1404 


2048 








PRO DSQ UIS 


XP 


13 MS88 rtSBfl 


292 


367 


1024 











DSQ UIS 


64*216 


14 usee risen 


203 


395 


1024 











DSQ UIS 


256*54 


13 TEXT risen 


294 


468 


1024 











DSQ UIS 


128*108 


16 MSB8 rtS8fl 


295 


133 


1024 











DSQ UIS 


4*64*54 


9 TEXT NSBA 


273 


221 


1024 











DSQ UIS 


Cor . EstoaipeT 


18 nS88 riSBfl 


296 


801 


1024 











DSQ UIS 


Itoc/Rpplel 1 


20 HS88 MSBfl 


344 


131 


1024 











DSQ UIS 


Back pat 


21 rtsB8 nsefl 


345 


573 


1024 











DSQ UIS 


Cursrur 


22 SCRH JLB 


297 


21888 


22528 











DSQ IMU SVS 


Star tup Screen 


24 ftS88 nsefl 


320 


1309 


2048 











DSQ UIS 


Paint/Basic 


23 «SB8 risen 


322 


633 


1024 











DSQ UIS 


Col 1 


26 nsee nSBfl 


323 


1375 


2048 











DSQ UIS 


Paint/Start 


27 nsee nsefl 


325 


263 


1024 











DSQ UIS 


Char geaen t 


28 nsre nsefl 


326 


449 


1024 











DSQ UIS 


Reservation 


29 (TIL FMOU 











346 


51082 


51200 


DSQ UIS 


Coractaras 


30 flPPL Fnou 











331 


12544 


13312 


DSQ UIS 


Foot Hover 


31 flPPL LCZR 











154 


18688 


19456 


BUR UIS 


Local izer 


32 nsee nsefl 


173 


281 


1024 











DSQ UIS 


B/l 


34 FMDR ERIK 











179 


2616 


3072 


DSQ INU 


DeskTop 
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"donnees" du fichier (2 octets). 
54(A0) : longueur logique en octets 
pour la partie "donnees" (4 octets). 
58(A0) : longueur physique en 
octets pour la partie "donnees" (4 
octets). 

62(A0) : premier bloc pour la partie 

"ressource" du fichier. 

64(A0) : longueur logique en octets 

pour la partie "ressource" (4 octets). 

68(A0) : longueur physique en 

octets pour la partie "ressource" (4 

octets). 

72(A0) : date et heure de creation 
sous la forme de 32 bits indiquant le 
nombre de secondes ecoulees depuis 
le premier janvier 1904 a 12H00. 
76(A0) : identique a AO + 72, mais 
pour la derniere modification. 



Avant de conclure. il faut dire quel- 
ques mots sur la methode employee 
pour supprimer les menus. Le Basic 
Microsoft ne permet pas la suppres- 
sion pure et simple d"un menu, il est 
seulement possible de les masquer. 
La methode n'est pas tres elegante, 
prend beaucoup de place et ne per- 
met pas de supprimer le menu 
"Pomme", qui est fort genant car les 
accessoires de bureau qu'il permet 
d'appeler masquent les fenetres du 
Basic, qui ne sont pas remises a jour 
a la fermeture des accessoires. Notre 
programme utilise deux routines. La 
remiere. que Ton appelle avec 
A936. supprime le menu dont le 
numero se trouve au sommet de la 
pile, sur deux octets. Le numero 



d'un menu est celui que Ton utilise- 
rait en Basic moins 1 (Le menu 
"Pomme" porte le numero 1). La se- 
conde routine, $A937. reaffiche la 
barre des menus dans sa nouvelle 
configuration. 

Nous savons maintenant lire, depuis 
le Basic et avec l'aide de quelques 
routines, les indications situees sur 
une disquette. Nous verrons prochai- 
nement qu'il est aussi possible de 
modifier les informations, ce qui nous 
permettra de lire depuis le Basic le 
contenu de certains fichiers comme. 
par exemple. les polices de caracte- 
res. 



Source des routines en langage machine 
incorporees au programme Basic 



1 








TABLE 


DS.L 21 




2 








NOM 


DS.L 16 




3 


4E56 


0000 




VOLUME 


LINK 


A6.-0 


4 


41FA 


FF66 






LEA 


TABLE, AO 


5 


2248 








M0 VEAL A0.AI 


6 


7014 








MOVEO 


*20,D0 


7 


4299 






BINIT 


CLR.L 


(AD* 
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51C8 


FFFC 






DBRA 


D0.BINIT 
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45FA 


FFAC 






LEA 


N0M,A2 


10 


214A 0012 






MOVE! 


A2,18(A0) 


II 


226E 


0008 






MOVEAL 8(A6),AI 


12 


I4E9 


0001 
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1(A1),(A2h 


13 


2429 


0001 
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l(AI),D2 


14 


0282 


00FF 


FFFF 
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22 
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RTS 
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41 FA 


FF26 
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TABLE, AO 
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. 26 
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4E56 


0000 




MENU 


LINK 


A6,*0 
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3F2E 
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REM """"CATALOGUE*** 

WINDOW CLOSE ! WIDTH 2550N ERROR GOTO Erreur 

DEFINT A-Z.DIM C( 1 27),P( 1 ),T(2I7),C$( 1 7):P0KE &H2F8.0 

DEF FNV32!(A!,N)=PEEK(Ai*N)*2"24*PEEK(A'*N'1)*2"16*PEEK(Ai'N-2) 

*256-PEEK(Ai-N-3) 

DSK$="Disquette "PL$="Protection logicielle : " 

PM$="Protection materielle : ":NF$="Nombre de fichiers sur la disquette " 
PBC$="Premier bloc du catalogue ":NBC$="Nombre de blocs dans le catalogue 

NBD$="Nombre de blocs sur la disquette :" 
NOB$*"Nombre d'octets par bloc " 

NMO$="Nombre minimum d'octets successifs :":PBA$-"Premier bloc alloue :" 

PNF$=" Premier numero de fichier disponible :" 

NBL$="Nombre de blocs libres :":NOL$'="Nombre d'octets libres :" 

0$="Oui":N$-"Non" 

C$( I X0040003600040000000000000002000000000800000300000000 
C$(2X 1 000000 1 8000000030000000C000000060000000AOOOOOOOCOOO 
C$(3XO0O0A00O0OO 1 40000000AOOOOOO 1 4O000O00A000000 1 40000000 
C$(4XA000000 1 40000000AO 1 FF00 1 4000O00O90E00F02400000O08B0OOO 
C$(5XE440000000460000 1 880000000230000050000000F200000030000 
C$(6K0030BOOOOOO 1 000000408800000080000083EOOO I FC040000 1 04 
C$(7}=" I O0OC0 1 820000 1 0838000000200002 1 044003FF0 1 0000200820 1 
CS(8XF5AE 1 000020 1 0F023DE I 1 0000 1 02 1 080 1 FC0 1 0000 1 002080303 
C$(9X0 1 00000804040C00C 1 0000040444 1 0002 1 0000 1 A00442000 1 1 
C$( 1 0K0006300242000 1 20000B3803840000A000 1 30402040000C000 
C$( 1 1 X386C06040000FFE0506C07040000FC 1 843080F82000 1 F0045B 1 
C$( 1 2X0 1 FF2000 1 C00298403FFF00038002C 1 80DFFFC00F000 1 E6038FF 
C$( 1 3XFFFFE0003FFFFFFFFFFF05FFF000000000200200000000000040 
C$( 1 4X02000000000000800 1 000000000000800 1 000000000000840 1 
C$( 1 5X0000000000 1 288 1 00000000000 1 49 1 1 00000000000 1 4922000 
C$( 1 6X00000000 1 4922000000000000C9220000000000004924000000 
C$( 1 7X000000492400000000000029380000000000000480000 
FOR 1=1 TO I7:C$(0)=C$(0)-C$(I)NEXT 



REM Initialisation des variables (pour eviter les "mouvements de memoire") 
1=0.J=0:K-0:P-0;N=0:DR=0:X-0:Y-0:V=N 

V0L=74.' Point d'entree dans le tableau pour la routine "Volume" 
FIL-106:' Point d'entree pour la routine "Fichiers" 
MEN-120 'Point d'entree pour la routine "Menu" 

Ai=VARPTR(T(0)):J=l 

FOR 1=0 TO 435. POKE A!*i,VAL("&H"*MID$ (C$(0),J,2)):J=J*2 NEXT 
ERASE C$ 
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PRINT NMO$ TAB(34) USING U6$,FNV32'(A!,52) 
PRINT PBAS TAB(34) USING U6$.C(2e) 
PRINT PNFS TAB(34) USING U6$,FNV32!(A!,S8) 
PRINT NBLS TAB<34) USING U6$,C(3I) 
PRINT NOL$ TAB(3 1 ) USING U9$,C(3 1 )* 1 024 
RETURN 

REM Sous-programme pour barre des menus 
Tmenu: 
MENU 

IF MENU (I)- 1 THEN DR— I MENU 5, 1 ,2 MENU 5,2,1 BUTTON 
1 , 1 ,"lmpression",(5,260H95,280), 1 

IF MENU( I )-2 THEN DR-OMENU 5,2,2:MENU 5,1,1 BUTTON 
l,l,"Fichiers",(5,260H95,280),l 
RETURN 

REM Sous-programme pour aff ichage type et auteur du fichier 
Type: 

FOR j=32*P TO 35*P K=PEEK(A!*J):IF K>3I AND K< I 26 THEN PRINT 
CHRJ(K), ELSE PRINT " "; 
NEXT 
RETURN 

Erreur 

OPEN "LPT I FOR OUTPUT AS I RESUME Serr 



A propos de 1'articlc "Personna- 
Hsez vos disquettes Macintosh" 
(Pom's 16) 

Le programme permettant de consti- 
tuer un fichier "StartupScreen". mis 
au point avec la version 1 du Basic 
Microsoft, ne fonctionne pas avec la 
version 2. Pour remedier a cela. il 
convient de remplacer : 

280 FOR J = 1 TO M : PRINT #2, 
CHR$ (A(J) / 256) ; CHR$ (A(J) 
AND &HFF) ;: NEXT: NEXT: 
CLOSE : PRINT "Conversion effec- 
tuee.": GOTO 300 
par: 

280 AD = : A! = VARPTR (A(D) : 
FOR AD = to 63 : PRINT #2 , 
CHR$ (PEEK (A! + AD)) : : NEXT : 
NEXT : CLOSE : PRINT "Conver- 
sion effectuee.": GOTO 300 



Fin: 



WINDOW CLOSE I MENU RESET END 




54, rue de Dunkerque 
75009 PARIS Tel.: 282.17.09 
Metro: Gare du Nord (100 m) 

Diskettes U.S 5" 1/4 SF/SD 
Diskettes 5"1/4SF/DD 

Lecteur diskettes pour APPLE 

(mecan. Japonais, entr. direct) 

Carte synthetiseur de voix 

Carte memoire/langage 16 K Ram 

Carte memoire 128 K 

Carte drive 13/16 sect. 

Carte 80 colonnes 

Carte imprimante parallele 

Carte imprimante + Buffer 32 K 

Carte serie 

Carte super serie 

Carte Z80 - CP/M 

Joystick de luxe 2 +, 2E, 2C 



SURPRIS ... LES PRIX!!! 

PRIX T.T.C.! POUR APPLE ET COMPATIBLES 

139 F/boite 10 (exp. min. 5 boites Port 27 F) 
170 F/boite 10 (exp. min. 5 boites Port 27 F) 



Carte wilcard (deplombage) 
Carte communication 
Carte IEEE - 488 
Carte copieur Eprom 
Carte A/D-D/A 12 bit 
Carte horloge 
Carte musique 

Carte RGB + Prise TV Secam 
Carte 6522 Via 
Port pour une carte 
Ventilo 10 W. super silencieux 



Port U rg ent a j outer 5 . 50 F 

NOUVEAU : Pince speciale pour diskettes (1 00 000 trous min.) (port : 1 3 F) 69 F 
Ordinateur multicompatible Forth, Basic, CP/M, MS-Dos, CP/M86 

Ecrivez, nous vous enverrons une liste plus complete de nos articles. Revendeurs, contactez-nous. 

Notre devise : "DYNAMIT COMPUTER : MOINS CHER QUE MOI TU MEURS V 
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BSAVE et BLOAD avec le Basic Microsoft 



Par rapport au Basic Applesoft, le 
Basic Microsoft (surtout la version 2) 
offre une gamme d' instructions extre- 
mement etendue. Malheureusement, 
il manque deux commandes du 
DOS : BLOAD et BSAVE. Ces der- 
nieres sont tres pratiques lorsqu'il 
s'agit de sauvegarder ou charger ra- 
pidement des fichiers binaires qui 
peuvent etre, par exemple. des don- 
nees graphiques, des tableaux de va- 
riables ou encore des tables de refe- 
rences employees pour des fichiers a 
acces direct. 

Nous nous sommes done honteuse- 
ment inspire du DOS de 1' Apple II 
pour creer un petit utilitaire propre a 
executer ces taches. Un gros avan- 
tage par rapport a 1' Apple II : la Vi- 
tesse de transfert memoire vers dis- 
quette ou disquette vers memoire est 
d'environ 15 Ko par seconde, ce qui 
est nettement plus performant que 
sur un Apple II, meme avec un DOS 
rapide. 

Mode d'emploi 

Le programme Basic (qui fonctionne 
avec les deux versions du Basic Mi- 
crosoft) propose avec cet article n'est 
qu'un exemple destine a visualiser le 
passage de parametres aux routines. 
Ce mode d'emploi est done celui des 
routines proprement dites. 

Implantation des routines 
dans vos programmes 

Si vous pensez utiliser ces routines 
dans de nombreux programmes, 
vous avez tout interet a en (aire un 
sous-programme MERGEable, si pos- 
sible en utilisant la possibility de faire 
des sous-programmes a variables lo- 
cales que nous offre la nouvelle ver- 
sion du Basic Microsoft. Cette me- 
thode heritee du Pascal permet de 
ne pas se soucier d'une eventuelle 
interaction entre le programme prin- 
cipal et le ou les sous-programmes. 

Dans le programme exemple, les 
codes hexadecimaux correspondants 
a la routine en langage machine ap- 
paraissent sous forme de chaines de 
caracteres car cela prend beaucoup 
moins de place que les traditionnels 
DATAs. Nous avons place ces codes 
dans onze chaines differentes afin 
d'ameliorer la lisibilite du programme 
mais, dans vos programmes, vous 
pouvez mettre tous les codes dans 
seulement deux chaines. ce qui re- 
duira encore la place occupee par la 
routine. 

La routine "BSAVE" 

Cette routine sauvegarde sur dis- 



quette une zone de memoire de N 
octets a partir de l'adresse A. 

Le point d' entree de la routine se 
situe dans le 85eme element du ta- 
bleau de variables entieres dans le- 
quel vous placez la routine. Ainsi, si 
le tableau de variables est baptise 
C%, VARPTR(C%(84)) retourne 
l'adresse a utiliser pour l'appel de la 
routine (avec OPTION BASE 1, il 
faudrait prendre 85 au lieu de 84). 
La syntaxe en est : 

CALL BSAVE! (AF!, D%, AT!, N!) 
avec la premiere version du Basic 
Microsoft; 

BSAVE! AF!, D%. AT!. N! avec la 
version actuelle. 

BSAVE!. ou tout autre nom de va- 
riable en simple precision, contient 
l'adresse du point d'entree dans la 
routine. 

AF! represente une variable en sim- 
ple precision qui contient l'adresse 
du descripteur de la chaine conte- 
nant le nom du fichier. Dans la prati- 
que, le plus simple est de placer l'ex- 
pression VARPTR(F$) (ou F$ 
contient le nom du fichier) dans le 
CALL. 

D% represente une variable entiere 
contenant le numero du lecteur : 1 
pour interne. 2 pour externe. On 
peut aussi placer le numero "en 
clair" dans le CALL. 

AT! represente une variable en sim- 
ple precision contenant l'adresse de 
base du tampon de memoire a sau- 
vegarder. Pour la sauvegarde d'un 
tableau de variables numeriques, on 
peut placer dans le CALL 1' expres- 
sion VARPTR(X(Y)). II est aussi pos- 
sible de placer l'adresse "en clair" 
dans le CALL, a condition que cette 
adresse soit superieure a 32767 
($7FFF). Si Ton indique une adresse 
inferieure de cette facon, le CALL 
empilera seulement deux octets et, 
comme notre routine s'attend a trou- 
ver quatre octets dans la pile, il y a 
peu de chances pour que tout se 
passe bien. 

N! represente une variable en simple 
precision contenant le nombre d'oc- 
tets a sauvegarder. II est aussi possi- 
ble d'indiquer le nombre d'octets "en 
clair". avec les meme reserves que 
pour AT!. 

Le premier element du tableau de 
variables entieres ou se trouve la 
routine en langage machine est utilise 
pour retourner un code correspon- 
dent a une erreur eventuelle. Si ce 
mot de 16 bits contient une valeur 
nulle au retour de la routine, cela in- 
dique que tout s'est bien passe. Dans 
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le cas contraire, un probleme est sur- 
venu. Voici les codes possibles et 
leur signification : 

-33 : le catalogue des fichiers est sa- 
ture. 

-34 : la disquette est saturee. 

-35 : le volume indique n'existe 

pas. 

-36 : erreur d'entrees/sorties. 

-37 : nom de fichier incorrect. 

-44 : la protection mecanique 

contre l'ecriture est en place. 

—46 : le volume est protege par logi- 

ciel (voir "Catalogue sur impri- 

mante"). 

—48 : un fichier portant le nom du 

fichier indique existe deja. 

-56 : numero de lecteur incorrect. 

La routine refuse "d'ecraser" un fi- 
chier existant portant le meme nom 
que celui indique, et retourne le code 
—48 dans le premier element du ta- 
bleau de variables. Si vous voulez 
outrepasser cette protection, vous 
pouvez ecrire votre programme 
ainsi : 

100 BSAVE! = VARPTR (C(84)) 
110 CALL BSAVE! (VARPTR(F$), 
1. AT!, N!) 

120 IF C(0) = -48 THEN KILL F$ : 
GOTO 110 

La routine "BLOAD" 

Cette routine charge en memoire les 
N octets contenus par le fichier F, a 
partir de l'adresse A. 

Le point d'entree de la routine se 
situe dans le 156eme element du ta- 
bleau de variables entieres. La syn- 
taxe de cette routine est : 

CALL BLOAD! (AF!, D%, AT!) avec 
la premiere version du Basic Micro- 
soft; 

BLOAD! AF!, D%. AT! avec la ver- 
sion actuelle. 

Les parametres sont les memes que 
pour la routine BSAVE. mis a part le 
nombre d'octets, qui a ici disparu car 
il est determine automatjquement par 
la routine. Au retour de cette routine, 
le premier element du tableau 
contient aussi un code d' erreur : 

-35 : le volume indique n'existe 
pas. 

-36 : erreur d'entrees/sorties. 
—37 : nom de fichier incorrect. 
—43 : fichier introuvable. 
—56 : numero de lecteur incorrect. 



Fonctionnement des 
routines 

Les deux utilitaires emploient des 
zones communes : le tampon de 80 
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octets TABLE, indispensable aux 
routines d' entrees sorties du Macin- 
tosh; le tampon de 60 octets NOM, 
qui recevra le nom du fichier a trai- 
ler: la sous-routine RETOUR qui. 
comme son nom lindique. sera utili- 
see pour le retour au Basic, apres 
avoir passe un code d'erreur even- 
tuel dans le premier element du ta- 
bleau de variables qui regoit les routi- 
nes; enfin. la sous-routine 
INITTABLE. qui vide le tampon 
TABLE a chaque appel de Tune ou 
I'autre des routines. 

Plutot que d'analyser le source des 
routines ligne par ligne. ce qui ferait 
double emploi avec les explications 
du programme '"Catalogue" publie 
dans ce numero. nous vous propo- 
sons d'etudier les routines "syste- 
mes" mises en oeuvre pour arriver a 
nos fins. Comme pour toutes les rou- 
tines ayant un rapport avec les en- 
trees/sorties, le registre d'adresse AO 
doit pointer sur l'adresse de base 
d'un tampon ou doivent se trouver 
les parametres a passer a la routine. 
Chacune de ces routines retournent 
aussi un code d'erreur dans les deux 
octets de poids faible de DO. 

Creation d un fichier : $A008 

Les parametres a placer dans le tam- 
pon pointe par AO sont : 

18(A0) : l'adresse de 1' octet conte- 
nant le nombre de caracteres dans le 
nom du fichier. suivi par les caracte- 
res eux-memes. 

22(A0) : numero du lecteur (1 pour 
le lecteur interne, 2 pour le lecteur 
externe). 

Si. au retour de la routine. AO + 16 
est different de zero, une erreur est 
survenue; son code est retourne dans 
les deux octets de poids faible du re- 
gistre de donnees DO. 

Mise en place d'informations : 
$A00D 

Nous utilisons cette routine pour pla- 
cer la chaine "TEXT" dans la zone 
du catalogue affectee au type de fi- 
chier. Ceci permettra d'utiliser les fi- 
chiers crees depuis d'autres program- 
mes d'application comme. par 
exemple. MacWrite. Cette routine est 
generalement utilisee apres la routine 
qui permet de lire les informations 
sur les fichiers ($A00C. voir l'article 
"Catalogue" dans ce numero). Cette 
routine place dans le tampon les in- 
formations deja presentes dans le ca- 
talogue: il suffit de les modifier avant 
d'appeler la routine $A00D. 

16(A0) : erreur si different de zero 
(au retour). 

18(A0) : adresse du nom de fichier. 
22(A0) : numero du lecteur. 
32(A0) : quatre caracteres ASCII 
pour fixer le type de fichier. 
36(A0) : quatre caracteres ASCII 



« Hnsic I'omqI ftssembleur Initiation Informations... 
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Sur la disquette macintosh 
numero 1 

vous trouverez les programmes Basic : 

• Editeur : permet I'edition de formes (dessins) ou curseurs 

a I'ecran, dans le but de les reutiliser depuis 
d'autres programmes Basic. 

• Mac/ Applet I: transmissionde fichierstexte entre un Macintosh 

et un Apple II. 

• Paint/ Basic : Recuperation de document MacPaint pour les 

utiliser depuis un programme Basic. 

• Paint/Start : Recuperation d'un document MacPaint pour en 

faire une image qui sera visualisee lors de 
I'insertion de vos disquettes dans le lecteur du 
Macintosh 

• et d'autres programmes "exemples" employes pour 

/'illustration des articles publies dans les 
numeros 1 5 et Ibde Pom's. 

Les polices de Caracteres . 

• Los angetes 24 et 1 2 points 

□ J^ll^ (CAIRO) 

■ files EislEfj et 12 points 

• Hollywood UEflaaaaft ) 

• Manhattan BEFI^ foM 

et les programmes : 

• LOCALIZER : configuration du clavier AIER7Y pour la France 
(ou un autre pays). 

• Copie de disque : pour effectuer des copies de disquettes avec 
un seul lecteur sur un Macintosh /28K0, en seulement quatre 
passages. 



\i0) *y (ce qui, en gros, 
ueut dire "150,00 F TTC franco, bon de commande page 74") 
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pour fixer une abreviation du nom 
de lauteur ou du programme qui a 
genere le fichier. 

40(A0) : (2 octets). Si le bit 15 est a 
1. le fichier sera protege. Si le bit 14 
est a 1. I'icone sera invisible. Si le bit 
13 est a 1. le fichier sera sense re- 
grouper plusieurs "sous-fichiers". Si 
le bit 12 est a 1. le fichier sera un 
"fichier systeme". 

42(A0) : quatre octets contenant la 
position de I'icone dans sa fenetre. 
Les deux octets de poids fort 
contiennent la position horizontale. 
les deux octets de poids faible la po- 
sition verticale. 

46(A0) . deux octets pour la fenetre 
ou apparait Ticone. Si AO + 46 est 
egal a -3, I'icone apparattra dans la 
fenetre de la corbeille. Si AO + 46 
est egal a -2. I'icone apparaitra sur 
le bureau. Si AO + 46 est egal a 0, 
I'icone apparaitra dans la fenetre du 
volume. Si AO + 46 est superieur a 
0, I'icone apparaitra dans la fenetre 
d'un dossier. 

Cette routine ne permet pas de mo- 
difier les dates et heures. ainsi que 
les informations sur la position et le 
nombre d'octets occupes par les fi- 
chiers. 

Ouverture d'un fichier : SA000 

Cette routine ne donne acces qu a la 
partie "donnees" d'un fichier. Pour 
la partie "ressource". il faut utiliser 
une autre routine, dont le fonction- 



nement est similaire. mais dont le 
code est $A00A. 

Parametres passes et retournes par la 
routine : 

16(A0) : erreur si different de (au 
retour). 

18(A0) : adresse pointant sur le nom 
du fichier. 

22(A0) : numero du lecteur. 
24(A0) : deux octets indiquant un 
numero d'acces (au retour). 
27(A0) : indicateur sur un octet. Si 
le contenu de 1' octet est egal a 3. les 
lectures et ecritures seront autorisees. 
Pour 2, seules les ecritures seront ad- 
mises. Pour 1. lectures seulement. Si 
le contenu est nul. les autorisations 
en cours sont conservees. 
28(A0) : adresse (4 octets) d'un tam- 
pon de memoire de 522 octets utilise 
pour 1' acces au fichier. Si AO + 28 
contient une valeur nulle, le tampon 
de memoire reserve au volume sera 
employe (c'est la solution retenue 
pour nos routines). 

Ecriture sur un fichier : $A003 

16(A0) : erreur si different de (au 
retour). 

24(A0) : numero d' acces au fichier 
(retourne precedemment par la rou- 
tine d' ouverture). 

32(A0) : adresse de base du tampon 
de memoire a transferer vers le fi- 
chier. 

36(A0) : nombre (32 bits) d'octets a 
transferer vers le fichier. 



Lecture d'un fichier : SA002 

16(A0) : erreur si different de (au 
retour). 

24(A0) : numero d'acces au fichier 
(retourne precedemment par la rou- 
tine douverture). 

32(A0) : adresse de base du tampon 
de memoire ou devront etre stockes 
les octets lus. 

36(A0) : nombre (32 bits) d'octets a 
lire depuis le fichier. 

Fermeture d un fichier : $A001 

16(A0) : erreur si different de (au 
retour). 

24(A0) : numero d'acces au fichier. 

Mise a jour du catalogue de 
la disquette : SAO 13 

II faut absolument appeler cette rou- 
tine, qui ne requiert pas de parame- 
tres, lorsque Ton vient de creer un fi- 
chier, pour mettre a jour le catalogue 
de la disquette. Si cela n est pas fait, 
on risque de ne pas retrouver le nou- 
veau fichier. 

Nous venons de faire connaissance 
avec quelques routines du DOS du 
Macintosh. Elles offrent d'autres pos- 
sibilites que nous n'avons pas citees 
ici; le peu de pratique que nous en 
avons ne nous permet pas d en par- 
ler sans dire de grosses betises. II en 
va de meme pour d'autres routines, 
mais gageons que nous n'en reste- 
ronspasla... _ 



10 'Exemple d'utilisation des routines 
"BSAVE" et -BL0AD- 

20' 

30 DEFINT A-Z 

40 DIM C(21 1),C$(1 1),D(3382),P(3),R(3) 

50 C$( 1 K544558544E7 1 3 1 40FFFE4E5E4E7522487 

01 342995 1C8FFFC4E75 
60 C$(2)="4E5600004 1 FAFF546 1 EA45FAFF9E2 1 4A0 

1 2226E00 1 2 1 4E9000 1 
70 C$(3)="2429000 1 028200FFFFFF2642723A 1 4DB5 

1C9FFFC316E00100016 
80 C$(4)="A008322800 1 056B0A00C322800 1 066A8 

43FAFFA0215I0020A00D 
90 C$(5)="322800 1 0669842A800 1 CA000322800 1 

668C216E000C0020216E 
1 00 C$(6)="000800244268002C42A8002EA003322 
800 1 06600FF70A00 1 3228 

110 C$(7)="OOI06600FF66A0134EFAFF604E560000 

4 1 F AFEC84EBAFF5C45F A 
1 20 C$(8)="FF 1 02 1 4A00 1 2226E000E 1 4E9000 1 242 

90001028200FFFFFF2642 
1 30 C$(9)="723A 1 4DB5 1 C9FFFC3 1 6E000C00 1 642A 

800 1 CA000322800 1 06600 
1 40 C$( 1 0XFF 1 CA00C322800 1 06600FF 1 22 1 6E00 

080020216800360024 



150 C$(l IK4268002C42A8002EA002322800I066 

00FEF4A00 1 4EFAFEEE 
160 FOR 1=1 TO 11:C$(0)=C$(0)+C$(I):NEXT 
170 J-1:A!-VARPTR(C(7D) 
180 FOR 1=0 TO 28I:P0KE AM.VALCW-MIDS 

(C$(0),J,2)):J-J+2:NEXT 
190 ERASE C$ 
200 CALL TEXTFONT (0) 
210 SAV=84 
220 L0A-I55 
230 F$="XYZ" 
240 R(1)=!0:R(3)=330 
250 FOR Y= 1 TO 162 STEP 8 
260 RANDOMIZE TIMER :A!=VARPTR (P(0)) 
270 FOR 1=0 TO 7:P0KE A!+I,INT(RND*256):NEXT 
280 R(0)=Y:R(2)=Y*8 
290 CALL FILLRECT (VARPTR (R(0)), 

VARPTR(P(0))) 
300 NEXT 

310 LINE(10,I0)-(330,I70)„B 

320 GET(I0,I0)-(330,170),D 

330 CALL MOVETOO0.200) 

340 PRINT "Appuyez sur une touche pour 

sauvegarder l'image... 
350 WHILE INKEY$ = ' WEND CL5 
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360 NI-6766 B5AVE!=VARPTR (C(5AV)) 

370 CALL ESAVE'( VARPTR <F$) 1 .VARPTR (D(0)),N!) 

360 IF C(0)THEN PRINT "Erreur !": 

WHILE INKEYS =-' WEND END 
390 ERASE D DIM D(3382) CL5 
400 CALL M0VET0( 10,200) 
410 PRINT "Appuyez sur une touche pour recharger 

l'lmage... 



420 WHILE INKEYS -"WEND CL5 

430 BL0AD l= VARPTR (C(LOA)) 

440 CALL BLOADKVARPTR (F$), I , VARPTR (D(0))) 

450 IF C(0) THEN PRINT "Erreur !": 

WHILE INKEY$ = '":WEND END 
460 PUT(I0,10),D 

470 WHILE INKEY$ ="":WEND CLS KILL "XYZ": 
GOTO 250 





Source des routines "BSAVE" et "BLOAD" 


40 


3228 0010 






MOVF 












41 


668C 








, Segment commun aux deux routines 




42 


2I6E OOOC 


0020 




MOVE.L 












43 


216E 0008 


0024 




MOVE.L 


1 


0000 


ERREUR 


DC 





44 


4268 002C 






CLR 


2 




TABLE 


DS.L 


OA 


45 


42A8 002E 






CLR.L 


3 




NOM 


DSL 


15 


46 


A003 






DC 


4 


5445 5854 


TYPE 


DC.L 


$54455854 


47 


3228 0010 






MOVE 












48 


6600 FF70 






BNE 


5 


3140 FFFE 


RETOUR 


MOVE 


D0,-2(A0) 


49 


AOOI 






DC 


6 


4E5E 




UNLK 


A6 


50 


3228 0010 






MOVE 


7 


4E75 




RTS 




51 


6600 FF66 






BNE 












52 


A013 






DC 


8 


2248 


INITTABLE 


MO VEAL 


AO, A! 


53 


4EFA FF60 






BRA 


9 


7013 




MOVEO 


* I9.D0 












10 


4299 


Bl NIT 


CLR.L 


(Al )* 


: Routine "BLOAD" 






1 1 


51C8 FFFC 




DBRA 


DO.BINIT 












12 


4E75 




RTS 




54 


4E56 0000 




BLOAD 


LINK 












55 


41FA FEC8 






LEA 


, Routine "BSAVE" 








56 


4EBA FF5C 






B5R 


13 


4E56 0000 


BSAVE 


LINK 




57 


45FA FF10 






LEA 


14 


4IFA FF56 




LEA 


TABLE, AO 


58 


2I4A 0012 






MOVE.L 


15 


61EA 




BSR.S 


1 1 ii tt ini f~ 

INITTABLE 


59 


226E 000E 






MOVEA.L 












60 


14E9 0001 






MOVE.B 


16 


45FA FFAO 




LEA 


NUn.A^ 


61 


2429 0001 






MOVE.L 


17 


2I4A 0012 




MOVE.L 


AO 1 Df Afll 

Az, 1 o(AO) 


62 


0282 OOFF 


FFFF 




ANDI.L 


18 


226E 0012 




MO VEAL 


18(A6),A1 


63 


2642 






MOVEA.L 


19 


I4E9 0001 




MOVE B 


HA 1 ),\hZr 


64 


723A 






MOVEO 


20 


2429 0001 




MOVE.L 


i / 1 n no 


65 


14DB 




BN0M2 


MOVE.B 


21 


0282 OOFF FFFF 




ANDI.L 


*$00FFFFFF,D2 


66 


51C9 FFFC 






DBRA 


22 


2642 




MOVEAL 


D2.A3 


67 


3I6E OOOC 


0016 




MOVE 


23 


723A 




MOVEO 


*58,DI 


68 


42A8 00 IC 






CLR.L 


24 


14DB 


BNOM 


MOVE.B 


(A3)',(A2)* 


69 


AOOO 






DC 


25 


51C9 FFFC 




DBRA 


Dl.BNOM 


70 


3228 0010 






MOVE 


26 


316E 0010 0016 




MOVE 


I6(A6),22(A0) 


71 


6600 FF1C 






BNE 


27 


A008 




DC 


SAO08 


72 


AOOC 






DC 


28 


3228 0010 




MOVE 


16(A0),DI 


73 


3228 0010 






MOVE 


29 


66B0 




BNES 


RETOUR 


74 


6600 FF12 






BNE 


30 


AOOC 




DC 


SAOOC 


75 


216E 0008 


0020 




MOVE.L 


31 


3228 0010 




MOVE 


16(A0),D1 


76 


2168 0036 


0024 




MOVE.L 


32 


66A8 




BNES 


RETOUR 


77 


4268 002C 






CLR 


33 


43FA FFA2 




LEA 


TYPE.Al 


78 


42A8 002E 






CLR L 


34 


2151 0020 




MOVEL 


(AI),32(AO) 


79 


A002 






DC 


35 


AOOD 




DC 


SAOOD 


80 


3228 0010 






MOVE 


36 


3228 0010 




MOVE 


I6(A0),DI 


81 


6600 FEF4 






BNE 


37 


66 98 




BNES 


RETOUR 


82 


AOOI 






DC 


38 


42A8 00 1C 




CLR.L 


28(A0) 


83 


4EFA FEEE 






BRA 


39 


AOOO 




DC 


$A000 













I6(A0),D1 

RETOUR 

I2(A6),32(A0) 

8(A6),36(A0) 

44(A0) 

46(A0) 

$A003 

16(A0),D1 

RETOUR 

SAOOl 

16(A0),D1 

RETOUR 

SAO 13 

RETOUR 



A6-0 
TABLE, AO 
INITTABLE 

N0M,A2 

A2,I8(A0) 

I4(A6),AI 

!(A1),(A2)* 

l(AI),D2 

-$00FFFFFF,D2 

D2,A3 

*58,D1 

(A3)',(A2)* 

DI,BN0M2 

I2(A6),22(A0) 

28(A0) 

$A000 

I6(A0),DI 

RETOUR 

SAOOC 

I6(A0),DI 

RETOUR 

8(A6),32(A0) 

54(A0),36(A0) 

44(A0) 

46(A0) 

$A002 

16(A0),DI 

RETOUR 

SAOOI 

RETOUR 
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Adherez k 



I E LECH AR GEM EN 
FRANCE PREMIERE 

qui vous propose sa collection de logiciels 
francais et etrangers 3 des prix europeens. 





et recevez votre 

Le Telechargement vous permet d'entrer dans le 
monde fabuleux de la telematique individuelle, grace 
a un logiciel de telecommunication et un interface 
APPLE - MTNITEL que vous recevez lors de votre 
adhesion. 



La Telelogitheque vous propose un catalogue de 
logiciels de jeux, de jeux educatifs et de vie pratique 
pour votre APPLE. 



ce APPLE - 



ITEL 





COLLECTK 



Conditions d'adh^ 

— Droit annuel de maintien de compte 
- Droit unique de raccordement a TfiLE CHARGEMENT FRANCE PREMIERE : 593 FT TTC 
(+ Frais d'envoi de 1' interface propie a votre microordinateur) 




Nom Prenom 

Adresse 



Code postal 



Je dispose d'un APPLE nc/IIe/II+ avec/sans carte super-serie APPLE (barrez les mentions inutiles). 

Je desire recevoir sans engagement de ma part votre proposition d'adhesion a TELECHARGEMENT 

FRANCE PREMIERE et votre catalogue de logiciels. 

Dat e : Signature : 



TELECHARGEMENT FRANCE PREMIERE - EUROPEAN MEDIA BUSINESS (EMB) 

9, place des Ternes - 75017 PARIS 



Switch video pour carte 80 colonnes 

Eric Pascual 



Ce petit montage electronique 
s'adresse aux possesseurs d'une carte 
H 80 colonnes pour Apple II compor- 
tant une sortie video propre. 
Le probleme est le suivant : pour vi- 
sualiser laffichage 80 colonnes. le 
moniteur doit etre connecte sur la 
sortie de la carte, et non plus sur 
celle de I' Apple. Pour revenir en 40 
colonnes ou pour afficher une page 
graphique, il faut debrancher le mo- 
niteur et le remettre sur la sortie nor- 
male. Cela devient d'autant plus ge- 
nant si on utilise un systeme comme 
Pascal, et que Ton y fait du graphi- 
que. car Pascal reconnait automati- 
quement les cartes 80 colonnes et les 
utilise. 

Une premiere solution consiste a 
monter un petit interrupteur inver- 
seur qui sert a relier le moniteur a 
l'une ou 1' autre des sorties video, 
sans avoir a le debrancher. Cela 
existe dans le commerce, tout monte 
pour 1* Apple, mais e'est relativement 
cher. De plus, il faut I'actionner a la 
main et done introduire dans les pro- 
grammes, qui utilisent les deux sor- 
ties, des messages invitant l'utilisateur 

I a basculer son inverseur avant de 
continuer. C'est tres rapidement 
exasperant. 
La deuxieme solution, objet de cet 
article, est d' avoir un systeme qui 
puisse etre commande soit manuelle- 
ment, soit directement par pro- 
gramme. Rassurons tout de suite les 
non habitues du fer a souder, le 
montage est tres simple. De toute 
maniere. on peut le construire et 
l'utiliser sans en connattre le principe. 
Enfin le budget a prevoir ne depasse 
pas 100 francs dans la version nor- 
male. 



Principe de 
fonctionnement 

La commutation du moniteur sur 
l'une ou 1' autre des sorties video se 
fait par 1' intermediate d un relais. pi- 
lote par un circuit electronique qui 
permet de le commander soit ma- 
nuellement, soit en utilisant une des 
sorties temoins accessibles sur le 
connecteur de jeux de 1' Apple, en 
I'occurrence la sortie TTL0. Un chan- 
gement d'etat de certe derniere (era 
basculer le relais dans l'une ou ['au- 
tre des deux positions. 
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Le coeur du montage est un circuit 
CD4011 qui contient 4 portes NAND 
en technologie CMOS. Deux de ces 
quatre portes sont cablees de facon a 
former une bascule bistable (de type 
RS pour les connaisseurs). Le fonc- 
tionnement de ce type de bascule est 
le suivant : on dispose de deux en- 
trees et d'une sortie. Si on envoie un 
etat sur l'entree R (RUN), la sortie 
de la bascule passera a I'etat 1. Si on 
envoie un etat sur I' autre entree S 
(STOP), la bascule reviendra a I'etat 

(j'espere ne pas avoir inverse les 
choses !). 

Le schema complet du montage est 
donne en figure 1 La bascule est au 
centre du montage (les deux portes 
NAND avec les liaisons entrecroi- 
sees). L'une de ces sorties sert a 
commander le relais via le transistor 
Tl, ce dernier amplifiant le courant 
de sortie du CD4011. insuffisant 
pour commander un tel composant. 

A quoi servent les autres compo- 
sants ? Detaillons le montage, en 
commenqant par l'entree. La pre- 
miere des portes du circuit IC1 est 
montee en inverseur : ses deux en- 
trees sont reliees, ce qui a pour effet 
de produire un signal de sortie qui 
est la negation du signal d' entree (on 
pourra le verifier en se reportant a la 
table de verite de la fonction NAND). 
L'utilite de cette porte est d'isoler le 
montage du reste de l'Apple. En 
effet. elle presente une tres grande 
resistance d'entree (il s'agit d'un cir- 
cuit CMOS). Ainsi les circuits internes 
de l'ordinateur ne seront pas pertur- 
bes par notre montage. 

Le signal passe ensuite par le 
condensateur CI qui permet de ge- 
nerer une impulsion a partir d un 
changement d'etat. Certe impulsion 
est celle qu'il faut appliquer a l'entree 
de la bascule pour la faire changer 
d'etat. La resistance Rl permet de 
forcer l'entree de la bascule, a I'etat 

1 en I'absence d'impulsion. et done 
de lui faire maintenir son etat de sor- 
tie constant. 

On constate qu'il y a un deuxieme 
chemin pour le signal d'entree. sy- 
metrique par rapport au precedent. 
C'est tout simplement pour attaquer 
la deuxieme entree de la bascule et 
commander le changement d'etat in- 
verse du relais. On inverse done le 
signal d'entree pour qu'il produise 



l'effet inverse. Les interrupteurs 
(poussoirs) SW1 et SW2 sont les 
commandes manuelles du montage. 
En appuyant sur 1'un ou l'autre. on 
envoie une impulsion appropriee a la 
bascule qui changera d'etat en fonc- 
tion de 1' interrupteur qui aura ete uti- 
lise. 

Dernier point : les diodes Dl et D2 
sont des LEDs (diodes electrolumi- 
nescentes) qui serviront de voyants 
temoins de I'etat de la bascule. Elles 
sont facultatives et. si on ne les utilise 
pas. on peut aussi supprimer les re- 
sistances R5 et R6 (limitatrices du 
courant qui traverse les LEDs). ainsi 
que le transistor T2 et sa resistance 
R4 (qui servait. comme plus haut, a 
obtenir un courant suffisant pour al- 
lumer la LED). 

Montage pratique 

La figure 2 donne un exemple d'im- 
plantation des composants sur un cir- 
cuit imprime (dont le trace apparait 
en transparence). Si on ne dispose 
pas du materiel necessaire a la 
confection d'un tel circuit, on peut 
plus simplement monter les compo- 
sants sur une plaquette "prototype"' 
(circuit imprime perce de trous metal- 
lises formant un quadrillage) et eta- 
blir les liaisons avec du fil fin isole 
(attention aux court-circuits). L'au- 
teur a utilise cette methode et lors- 
que tout a ete bien monte et bien 
verifie. tout marche parfaitement. 

La figure 3 donne le brochage du 
connecteur de jeux en indiquant les 
connexions, ainsi que le brochage du 
CD 4011 utilise dans le montage. At- 
tention a la position du repere lors 
de la mise en place, un circuit monte 
a l'envers est un circuit mort lors de 
la mise sous tension ! 

Pour les tests, il suffit d'alimenter le 
montage par une pile de 4,5 volts si 
on ne dispose pas d' alimentation sta- 
bilisee. On reliera le fil d'entree alter- 
nativement au plus et au moins de la 
pile: on verifiera ainsi que le relais 
bascule et que les diodes s'allument 
en consequence. 

Mise en place dans 
l'Apple 

A Tissue d'un test complet, il reste a 
relier tout cela a l'Apple. 
II est tres important, pour ne pas dire 
indispensable, d'eteindre l'ordinateur 
avant de faire ou de defaire un bran- 
chement. sinon ... 
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Pour relier nos fils au connecteur de 
jcux, on peut utiliser un connecteur 
16 broches pour fils en nappe, que 
votre marchand de composants se 
fera un plaisir de sertir sur les fils al- 
lant au montage (a Paris, certains 
magasins font cela gratuitement lors- 
qu'on leur achete un connecteur). 
Autre solution, acheter un support de 
circuit integre 16 broches a wrapper. 
Ces supports ont des broches lon- 
gues et solides qui entrent sans diffi- 
culty dans le connecteur de jeux. 
II vous suffit alors de souder vos fils 
dans les logements du support rece- 
vant normalement les partes du CI 
(solution adoptee par I'auteur). Cette 
methode est tout a fait adaptee s'il y 
a peu de fils a monter (ce qui est le 
cas ici). sinon on preferera celle du 
connecteur serti sur du cSble en 
nappe. 

Le circuit et ses composants externes 
(poussoirs. LEDs temoins) seront 
monies dans un petit boftier metalli- 
que pour blinder les connexions 
video. L'ensemble pourra etre fixe 
sur le cote de I'Apple. Les liaisons 
video seront obligatoirement en cable 
blinde, et on veillera a relier les blin- 
dages des differents fils. sous peine 
de voir 1'ecran rempli de parasites 
divers. 

Commande par 
logiciel 

La sortie TTLO se commande en re- 
ferengant les adresses $C058 et 
$C059 (voir manuel de reference 
Apple II page 77). Un POKE ou un 
PEEK en $C058 mettra la sortie a 
l'etat bas et desactivera le relais. Le 
moniteur doit alors etre relie sur la 
sortie video 40 colonnes (sinon in- 
verser les liaisons video), de fagon a 
se trouver dans cet etat lors de la 
mise sous tension de 1' Apple. Si on 
utilise I'adresse $C059. la sortie 
TTLO sera mise a l'etat 1 et le relais 
sera alors active. C'est tout ! 

Amelioration de la 
commande logicielle 

Ce qui est dit ci-dessus fonctionne 
parfaitement. mais... Supposons (cas 
"tordu"). que Ton allume I'Apple, on 
est done en 40 colonnes, TTLO est a 
l'etat bas. Appuyons sur le poussoir 
qui fait passer en 80 colonnes. Le 
relais bascule et le moniteur est relie 
sur notre carte 80 colonnes. Faisons 
alors un POKE 49240.0 par exem- 
ple. Le moniteur ne revient pas en 
40 colonnes. Drame ! En fait c'est 
normal car. pour plus de simplicite, 
le montage ne repercute pas sur 
TTLO le changement d'etat manuel 
que nous avons fait. TTLO etant 
reste a l'etat 0. le POKE ne fait que 



forcer a une sortie qui y etait deja; 
done aucune impulsion n'a ete gene- 
ree, ce qui explique l absence de 
reaction du montage. Si vous n'avez 
pas bien suivi. reprenez le paragra- 
phs lentement. c'est simple ! 

La parade consiste. lorsqu'on veut 
commander un etat (passage en 40 
colonnes par exemple). a envoyer en 
premier lieu la commande inverse, 
puis la commande voulue. On est 
ainsi assure de la generation d'une 
impulsion de commande puisqu'on 
fait passer TTLO dans les deux etats 
successivement. En Basic cela don- 
nera : 

POKE -16295.0 (SC059) 
POKE -16296.0 ($C058) 

Pour passer en 40 colonnes et inver- 
sement, pour passer en 80 colonnes; 
c'est imparable ! 



Dernier raffinement 

Si on est deja en 40 colonnes et que 
Ton execute les deux instructions ci- 
dessus. on observera un flash a 
1'ecran du au passage intermediate 
en 80 colonnes. Ce n'est pas beau et 
je ne sais pas si la video aime beau- 
coup. La solution est de faire ces 
deux acces en assembleur. En effet 
la lenteur de I'interpreteur Basic (ou 
P-code si on est en Pascal UCSD) 
fait que le relais "a le temps" de bas- 
culer dans les deux positions. Si on 
programme la sequence en assem- 
bleur, il n'aura plus le temps de "sui- 
vre" (du fait de son inertie mecani- 
que) et il n'y aura pas de flash a 
1'ecran. II y a juste une precaution a 
prendre : introduire une temporisa- 
tion entre les deux acces. sinon I'im- 
pulsion generee est trop courte pour 
etre enregistree par le montage. 
Conclusion, cela se traduit par : 



SUI40 PHA 
TXA 
PHA 

LDA *C05? 
LDX £*0A 
LOOP DEX 

BNE LOOP 

LDA *C058 

PLA 

TAX 

PLA 

RTS 



Pour la procedure SW80. il suffit 
d'inverser $C058 et $C059. Le nom- 
bre de boucles de temporisation a 
ete determine par experimentation : 
suffisamment grand pour etre enre- 
gistre par le montage (en fait le mini- 



mum est de 5). mais pas trop grand 
pour que le relais ne suive pas. 

Conclusion 

L'auteur a introduit ces procedures 
un peu partout. En Pascal, on peut 
en faire une UNIT et les mettre en 
SYSTEM. LIBRARY, ce qui facilite 
l'appel par les programmes (pas 
d'edition de liens a faire). En Basic 
pas de commentaire particulier. Sous 
CP/M il faut se souvenir du glisse- 
ment des adresses entre le 6502 et le 
Z80, et par consequent $C058 et 
$C059 deviennent respectivement 
$E058 et $E059. En mettant la rou- 
tine SW80 en AUTORUN. on obtient 
une disquette CP/M qui commute 
automatiquement le moniteur en 
"bootant". La meme manipulation 
peut se faire en Pascal en utilisant le 
SYSTEM. STARTUP. Sympathique 
non ? 

Comme mentionne en debut d'arti- 
cle. le montage revient a environ 100 
francs si on utilise des composants 
courants. II ne necessite aucune mise 
au point si on n'a pas fait d'erreur de 
cablage. 

Remarques diverses 

A la longue. pour eviter les proble- 
mes avec les poussoirs. il vaut mieux 
utiliser des poussoirs de type digitast. 
lis sont equipes de contacts anti-re- 
bond en or. 11 en existe meme. 
comble de raffinement. un type 
comportant une LED temoin sur la 
touche. Le modele sans LED coute 
environ 13 francs, et celui avec, a 
peu pres 25 francs. II est un plus 
cher, certes, mais nettement plus fia- 
ble. 

Le circuit integre utilise est un CD 
4011 CMOS. Ne pas prendre son 
equivalent TTL pour deux raisons. 

Tout d'abord les valeurs des compo- 
sants ne sont pas prevues pour ce 
type de circuit (impedances d'entree 
et de sortie beaucoup plus faibles en 
TTL). D'autre part, le brochage du 
circuit TTL n est pas le meme que 
celui du circuit CMOS. Le trace du 
circuit imprime serait done faux. 

Pour ce qui est du relais. il est prefe- 
rable d' utiliser un relais monte en 
boitier CI. II a I'avantage d'etre mi- 
niaturise, et de necessiter des cou- 
rants de commande tres faibles (ne 
pas oublier que I on ne doit pas 
consommer plus de 200mA sur la 
sortie 5 volts du connecteur de jeux). 

La diode D3 sera une diode de re- 
dressement quelconque. Son role est 
d'absorber les courants d'auto-induc- 
tion qui prennent naissance dans la 
bobine du relais et qui pourraient en- 
dommager le transistor Tl. 



Figure 1 
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Figure 2 



Nomenclature: 

Resistances: 

B1.B2: 1 kobm| 
B3.B4: 1 kohm 
B5.B&: 470 ohm 

Condensateurs: 

C1.C2: 47 nF 



Switch video: brochages divers 



TTLO 




volts 



*5 vo Its 



CLAVIER 
Connecteur de jeux APPLE II 



+v 




CD40 1 1 



Figure 3 



Transistors: 

T1.T2: 2H2222 an equivalent 

Diodes: 

D1.D2: LED 

DJ: diode redressemeat 

IC: 

IC1:CD4011 <4 portea BAHD CHOS 2 entrees) 

Divers: 

5V1^V2: hoatona poanoiu 

Bel.i 5 volts (brocba£e CI) 

Cable coaxial video, prise* CIHCH 

Coaatclmi 16 brocbee CI (poor la sortie GAHE de 1APPLE) 



Trues et Astuces 

Comment eviter Ie clignotement 
du curseur sur un Apple lie 

Le clignotement est du au fait que 
Ton change les donnees au moment 
meme ou on les affiche a l'ecran. II 
faut lire le signal en $C019 (49177), 
et changer l'affichage lorsqu'il est au 
niveau bas (e'est-a-dire. inferieur a 
128). 

Essayer le programme ci-dessous 



30 GOTO 20 

Bien entendu, ceci est particuliere- 
ment utile pour le HGR (notamment 
pour les affichages de shapes). 

10 IF PEEK (49177) > 127 THEN 
10 

20 VTAB 10 : HTAB 10 : PRINT " 



VTAB 10: 
"POM'S" 
30 GOTO 10 



HTAB 10 : PRINT 
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Mini -editeur Basic pour Apple II ou //c 

Jean-Frangois Rabasse 



Je vous propose un petit programme 
en langage machine, connecte au ni- 
veau de la routine d'acces au clavier 
(RDCHAR), qui recoit ses instruc- 
tions de I'utilisateur par I'interme- 
diaire du clavier (le vrai) et simule 
des touches "soft" pour le systeme. II 
n'assure aucune gestion. ni de 
l'ecran, ni du buffer d'entree ($200). 
et fonctionne done sous toutes les 
configurations qui utilisent la routine 
d'entree KEYIN : moniteur, Applesoft 
en immediat, Applesoft en mode 
programme avec les fonctions INPUT 
et GET. DOS... 

II donne acces aux fonctions suivan- 
tes: 

1 - Redefinition sur le clavier 
QWERTY d'un bloc numerique. sui- 
vant la disposition "calculette" adop- 
tee sur plusieurs machines (HP 75. 
Epson HX 20...). 

Cette fonction est accessible par pro- 
gramme, en mode immediat et en 
Basic (tres commode pour un pro- 
gramme de saisie de donnees qui al- 
terne des saisies alphabetiques et nu- 
meriques). 

2- Programmation des touches pour 
generer automatiquement une suite 
de caracteres. Le programme pos- 
sede sa propre table de donnees et 
peut done accepter n'importe quoi 
(on n est plus limite aux seuls mots 
Basic lus dans la ROM Applesoft). 
On pourra. bien sur, preprogrammer 
des mots Applesoft, des commandes 
DOS courantes (SAVE. LOAD. CA- 
TALOG...), mais aussi toute se- 
quence utilisee frequemment dans un 
programme (FOR I =1 TO K. PRINT 
CHR$(4) par exemple). La program- 
mation se fait touche par touche. en 
mode immediat et on peut la redefi- 
nir a tout moment. On peut prepro- 
grammer un clavier et le stocker sur 
disque en 1'etat, et conserver ainsi 
des claviers differents, que Ton char- 
gera en fonction du type de pro- 
gramme execute (clavier Basic cou- 
rant. clavier special commandes 
graphiques. etc.). 

3- Numerotation automatique des 
lignes en Applesoft. Mise en (ou 
hors) service en permanence. 

4- Le clavier possede des commandes 
de tabulation (uniquement sur 1'Ap- 
ple He) qui utilisent les touches DEL 
et TAB. 

Le programme est implante a partir 
de I'adresse $8600, et non plus haut, 
pour permettre la cohabitation avec 
un autre utilitaire de programmation, 
le logiciel RENUMBER - HOLD - 



MERGE d'Apple, qui se charge a 
partir de I'adresse $8D00. II modifie 
HIMEM lors de sa mise en service 
pour assurer sa protection. Attention, 
RENUMBER fait de meme, il est 
done recommande de charger 
d'abord RENUMBER, puis le clavier, 
si Ton desire utiliser les deux. 

Utilisation 

Mise en service 

Si le programme n'est pas en me- 

moire, il suffit de faire : 

BRUN CLAVIER2E (ou CLA- 

VIER2 + , ou tout autre nom). 

Si le programme est deja charge, 

mais a ete desactive. on fera : 

- Sous Basic : CALL 34304. 

- Sous moniteur : 8600G. 

Le systeme rend la main avec un 
curseur modifie. 

Mise hors service 

- Methode brutale : RESET. 

- Methode delicate : passez sous le 
moniteur et tapez : 

AA55: IB FD suivi de RETURN. 

Sauvegarde 

Le programme CLAVIER2E ou 
CLAVIER2+ ne comporte pas de 
table de touches predefinies. On l'uti- 
lisera pour creer une collection de 
claviers preprogrammes, sauvegardes 
par : 

BSAVE Nom,A$8600.L$651. 
Commandes 

Le fonctionnement est un peu diffe- 
rent selon l'Apple dont vous dispo- 
sez. 

L'Apple He utilise la touche "Pomme 
Pleine" (dite PP) pour les comman- 
des. et la touche "Pomme Ouverte" 
(dite PO) pour les sorties de chaines 
programmees (toute ressemblance 
avec les fonctions glossaires d'Ap- 
plewriter He a ete tres difficile a obte- 
nir !). Les touches "Pommes" sont 
utilisees, comme les touches SHIFT 
et CTRL, en maintenant la 
"Pomme" enfoncee et en appuyant 
sur une autre touche. 
L'Apple II utilise la touche CTRL 
pour les deux (le pauvre !). 

Bloc numerique 

La redefinition est la suivante : 
"T\ y "9", "U", "I", "O", "J", 
"K", "L", "M", "." correspon- 
dent respectivement a 7, 8, 9, 4, 5, 
6, 1, 2, 3, 0, E, "." . Pour une utili- 
sation facile, il est recommande de 
marquer les touches : caracteres LE- 



TRASET plus vernis mat par exem- 
ple, qa marche tres bien, venez voir 
le mien. 

• Commutation alpha / numerique 
Sur Apple lie : PP-N. 

Sur Apple II : CTRL-Z. 

• Commutation numerique / alpha 
Sur Apple He : PP-A. 

Sur Apple II : CTRL-Z. 

• Dans un programme Basic 

- Numerique : POKE 255,255 

- Alpha : POKE 255,0 

Touches programmees 

1- Programmation d'une touche : 

• Passer en mode programme : 
Apple lie : PP-P. 

Apple II : CTRL-B. 

• Taper les caracteres desires. 

• Affecter la sequence a une touche 
choisie par : 

Apple lie : PO-touche. 
Apple II : CTRL-touche. 

L'affichage ecran indique alors la 
touche d' affectation, annule la ligne. 
et on sort du mode programme. 

ATTENTION : 

— En mode programme, les possibili- 
ty d' edition sont limitees. On peut 
corriger la frappe par les fleches gau- 
che et droite. mais pas en edition 
d'ecran. ESC est inhibee, ainsi que 
CTRL-X. 

- Si une touche n'est pas program- 
mable, toute affectation sera ignoree. 

- Une touche peut etre reprogram- 
mee a volonte. 

— Pour deprogrammer, surtout sur 
Apple II, si Ton souhaite recuperer 
un caractere de controle, il suffit de 
programmer une chaine vide : 
Apple II : CTRL-B puis CTRL-tou- 
che. 

Apple He : PP-P puis PO-touche. 

2- Sortie de la programmation 
d'une touche : 

Apple He : PO-touche. 

Apple II : CTRL-touche. 

Remarques : une touche non pro- 

grammee renvoie le caractere qui lui 

correspond. 

La programmation est prioritaire sur 
la redefinition numerique du clavier. 
Une touche K non programmee ren- 
verra un K et non un 2, si elle est 
utilisee avec PO ou CTRL. 

3- Capacites de programmation : 
Sur Apple He, toutes les "lettres ma- 
juscules" acceptent jusqu'a 7 caracte- 
res (suffisant pour tous les mots de 
l'Applesoft ou du DOS) et les tou- 
ches "chiffres" jusqu'a 23 caracteres. 

Sur Apple II, seules les touches al- 
phabetiques sont programmables, 
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sauf les caracteres de controle sui- 
vants. 

Les fonctions d'edition : 
Break : CTRL C 
Cancel : CTRL-X 
Return : CTRL-M 
Bsp : CTRL-H 
Nak : CTRL-U 

Les commandes clavier : 

CTRL-B 

CTRL-Z 

On dispose ainsi, sur I* Apple II, de 
19 touches acceptant 15 caracteres 

4— Recommandations 
Dans un programme Basic, le clavier 
fonctionne avec INPUT et GET 
Avec GET. il faut eviter de frapper 
une touche programmee, sinon le 
GET va recuperer le premier carac- 
tere de la sequence et tous les GETs 
qui lui succedent prendront les carac- 
teres suivants. un par un, sans possi- 
bility d'intervention de I'utilisateur. 
Resultats folkloriques assures ! La so- 
lution est la suivante : inhiber, pour 
un acces clavier, la fonction pro- 
gramme par : 
POKE 254,0 . GET ... 

Generateur de numeros de 
lignes (mode AUTONUM) 

1 - Mise en service : 

• Passer en mode programme (PP-P 
ou CTRL-B). 

• Taper : le numero de la ligne et le 
pas decrementation. 

• Return 

Le generateur possede des valeurs 



par defaut qui sont 10,10. On peut 
done utilise, toutes les combinaisons 
possibles : 

Pour 10.10: Mode Programme "Re- 
turn". 

Pour 100.10: Mode Programme et 
•100" "Return". 

Pour 10,5: Mode Programme et 

",5" "Return". 

etc... 

Remarques : le generateur sait comp- 
ter jusqu'a 65535. mais l'Applesoft 
ne va pas au dela de 63999 (done 
faites des programmes courts !). Le 
generateur sort un nouveau numero 
apres chaque entree de ligne et res- 
sort le meme numero apres une an- 
nulation par CTRL-X. 

2- Sortie 

La sortie du mode AUTONUM se fait 
manuellement, en appuyant sur RE- 
TURN juste apres le numero de 
ligne. On sort automatiquement en 
cas de "collision" lorsque le genera- 
teur, en cours de numerotation. ren- 
contre une ligne de programme deja 
existante. C'est une securite qui per- 
met de reinsurer des lignes. en nu- 
merotation automatique, sans risquer 
de detruire ce qui existe. On ne 
pourra done pas utiliser ce mode 
pour reecrire une serie de lignes 
(prenez vos responsabilites et faites 
DEL vous meme). 

Tabulations sur lignes (reserve 
aux Apple He). 

1 - Touche TAB : 

Meme fonctionnement que la touche 



fleche a droite mais deplace le cur- 
seur de 10 en 10. II est ainsi aise de 
recopier rapidement une longue ligne 
Basic (attention aux repetitions, cela 
va tres vite). En maintenant enfon- 
cees les touches PO et TAB le cur- 
seur se deplace, vers la gauche, de 
10 en 10. 

2- Touche DEL ; 

C'est une touche d'annulation : elle 
fait reculer le curseur comme la fle- 
che a gauche, qui supprime le der- 
nier caractere frappe. alors que DEL 
supprime les caracteres correspon- 
dant a la derniere frappe de touche 
(supprime le mot si la touche est pro- 
grammee). 

Pour terminer, si vous trouvez des 
bugs ou si vous avez des suggestions, 
faites le moi savoir. 

Deux conseils : 

- Ne pas utiliser le Clavier avec l'IN- 
TEGER BASIC. 

- En ce qui concerne l'edition sur 
80 colonnes : les cartes "incrustees" 
(carte texte Apple He) ne supportent 
pas la routine moniteur KEYIN (et les 
fonctions Basic qui l'urjlisent. INPUT 
et GET): il est done impossible d'em- 
ployer cet editeur. Par contre, les 
cartes de type terminal video (Super- 
term, Videx, etc. ). fonctionnent par- 
faitement. 

N.D.L.R : ce programme tourne sur 
l'Apple lie. II faut charger CLA- 
VIER2E. II est a noter que le curseur 
n'est pas visualise. 



CLAVIER. LI ST 

10 AD = 30000: HI MEM : AO 

20 INPUT *N0M DE VOTRE CLAVIER ? " ;N* 
30 PRINT CHR* < 4) ; " BLOAD" ;N* ; " , A" ;AD 
35 PRINT CHR* (4);"PRttl": PRINT N* : PRI 
NT 

40 DC = 16: ON PEEK (AD + 769) / 50 + 1 
GOTO 50,70 

50 DC = 24:CA = 48:IMAX = 9:AB = AD + 252 
: GOSUB 1000: PRINT 



60 DC = 8 

70 CA = <S5:IMAX = 25:AB = AD + 44: GOSUB 
1000 

75 PRINT CHR* (4);"PR*0" 
80 END 

1000 FOR I = TO IMA.X:AX = AB + DC * I : 
C* = CHR* <CA + I ) + " : " 

1100 IF PEEK (AX) = THEN PRINT C* : N 
EXT : RETURN 

1200 C* = C* + CHR* ( PEEK (AX) - 128): A 
X = AX + 1 : GOTO 1 100 



1 9 


FNDLIN 


EQU 


*D61A 


20 


SAVE 


EQU 


*FF4A 


21 


DOSPTR 


EQU 


*03EA 


22 


RESTORE 


EQU 


*FF3F 


23 


MOVAF 


EQU 


4EB63 


24 


SNGFLT 


EQU 


*E301 


25 


FMULTT 


EQU 


*E982 


26 


FADDT 


EQU 


*E7C1 


27 


FOUT 


EQU 


*ED34 


28 


FRMNUM 


EQU 


*DD67 


29 


KSUJDOS 


EQU 


*AA55 


30 


GETADR 


EQU 


*E752 


31 


LINPTR 


EQU 


*ED24 


32 








33 


; ADRESSES SYSTEME 


34 








35 


TXTPTR 


EPZ 


*B8 


36 


MEMS I 2 


EPZ 


*73 


37 


LINNUM 


EPZ 


*50 



1 

2 

3 

4 

5 

6 

7 

8 

9 
1 
1 1 
12 

13 i 

14 A2E EQU 41 ; OPTI 

ON D'ASSSEMBLAGE 

15 ; 

16 ; ROUTINES SYSTEME 
1 ^ ; 

18 GIVAYF EQU *E2F2 



* » 

* CLAVIER PROGRAMMABLE * 

* * 

* //E (A2E=1) ET 11+ (A2E=0) * 

* (ASSEMBLAGE CONDI T I ONNEL ) * 

* * 

* I M PLANT AT I ON : 4860 A 48C51 * 

* * 
*********♦**♦*»**•***■**•*******»** 
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38 


FAC EPZ 4A0 








wxyz ' 






3? 


KBD EQU 4C000 






90 








40 


KBSTROBE EQU *C0 1 






91 


; MESSAGES PROGRAMME 




41 


POMOUV EQU 4C061 






92 


• 

» 






42 


POMPLEI EQU 4C062 






93 


MSG0 


ASC "PROGRAMME • " 




43 


; 






94 




HEX 00 




44 


J POINTEURS PROGRAMME 






95 


MSG1 


ASC " AFFECTE A " 




45 


f 






96 


CODE 


DFS 41,0 




46 


ALP EPZ 4FC 




; POINTE 


97 




HEX A0A09800 






UR DE CHAINES 






98 


NUL 


ASC " AUTONUM " 




47 


PROG EPZ 4FE 




i INDI CA 


99 




HEX 9800 






TEUR DE PROGRAMMATI ON 






1 00 


MSG2 


ASC "BLOC NUMERI QUE 


•< 


48 


MODE EPZ 4FF 




;ETAT D 


101 




HEX 980 






U CLAVIER <ALPHA:400 , 






102 


MSGS 


ASC "CLAVIER ALPHAB 


ETI QUE" 


4? 


• 


NUMERI QUE 


1 03 




HEX 9800 




50 


:4FF> 






104 


FTAB 


HEX 9595959595959595959500 


! 






105 




HEX 88888888888888888888888 


51 


! 








8888888 




52 


ORG 48600 






106 


BTAB 


HEX 88888888888888888888 


53 


OBJ 4800 






107 


ZDEL 


HEX 00 




54 








108 




PAG 




55 


PAG 






109 


9 






56 


: ENTREE POUR INITIALI SAT I ON 


1 1 


; ROUTINE D' ENTREE ( REMPLACE RDCHR 


57 


i 








) 






58 


Aprpc TMP IMIT 






1 1 1 








5? 


1 






1 12 


ENT 


JSR SAVE 




60 


.TARI CO HP nflMMFFQ 








ARDE 


6502. 




61 








1 1 3 




BIT PROG 




62 


mi in hpq *n*? n 




• Kin hp 




CHAINE PROGRAMMEE 






1 T ("SNIP PiP PDfl^OAMMC 






114 




BPL LEC0 




63 


t npi hpq *.n n 








N COURS DE SORTIE, 






FMT 






1 1 5 




JMP PR62 




64 


M U 1 UrL L/rO **U 1 , U 




n p 1 1 v 




TINUE 


A LA SORTIR. 






PI AH^ PHI IP 1 * PTAT fill 






116 


LEC0 


BIT STATUS 


; E ST ON 


65 






• HPMPRA 




SORT I NORMALEMENT 






TP! IRC, DF MClC. DP 1 






117 




BPL LEC 




66 


PTTB DFS $0 1 




■ PTR DP 




APPEL 


PRECEDENT? 






LA TABLE DE CHAINES 






118 




JSR DOSPTR 




67 


K R hpc *fii n 

rw L'r o *' L' i ,u 




• Till ITHP 




, RECONNECTE LE DOS 






FPAPPFF All Tl AUI FP 






1 1 9 


LEC 


ASL STATUS 




68 


TYPF HF^ *n 1 n 




•typp n 

litre \j 


120 




SEC 






P TflllPMF ( 6! PMA Ml 1M ^ 






1 21 




ROR STATUS 




69 


STATUS DFS 40 1 , 




. TP QT n 


122 




INC CPTC 






E SORTIE ROUTINE. 






1 23 




BIT KBSTROBE 




70 


CPTC DFS 401 ,0 




;COMPTE 


124 




BIT AUTOFL 


; EST ON 




UR DE CARACTERES. 








EN NUM. AUTO.? 




71 


FLPR DFS 41 ,0 




; FLAG D 


125 




BPL LEC2 






E PROGR. EN COURS. 






1 26 




LDA KB 


; DERNI E 


72 


LPR DFS 41 .0 




; LONG . 




RE TOUCHE FRAPPEE? 






DE CHAINE PROGRAMMEE. 






127 




CMP #498 


; CTRL X 


73 


POM DFS 41,0 




; ETAT D 




•> 








ES TOUCHES POMMES. 






128 




BNE >5 




74 


! 






129 




JMP NUM2 




75 


i 






130 


"5 


CMP #48D 


; CTRL M 


76 


AZT DFS 41E.0 




; BUFFER 




? 








DE STOCKAGE. 






131 




BNE LEC2 




77 


. IF A2E 






1 32 




JMP NUM1 




78 


ATP DFS 4D0 ,0 




;TABLE 


1 33 


LEC2 


BIT KBD 


; LECTUR 




DES CHAINES ALPHA. 








E DU CLAVIER 




79 


ATN DFS 4F8.0 




; TABLE 


134 




BPL LEC2 






DES CHAINES NUM . 






135 




. IF A2E 




80 


.EL 






1 36 




BIT POMPLEI 


; ET DE 


81 


ATP DFS 41AF.0 




; TABLE 




S POMMES 






UNIQUE SI APPLE2+ 






137 




PHP 




82 


.FI 






1 38 




LDA POMOUV 




33 


i 






1 39 




AND #480 




84 


j TABLE DE REDEFINITION 


DU 


CLAVIER 


1 40 




TAX 




85 


! 






141 




PLA 




86 


ATR ASC " 1 " "#4/&' 0*+E- 


./01234 


142 




ASL 






56789: ; <=>?3" 






143 




TXA 




87 


ASC "ABCDEFGH51 230N6PQRST4V 


144 




ADC #40 






WXYZ" 






145 




STA POM 




88 


HEX DBDCDDDEDFE0 






146 




.FI 




8? 


ASC " abcdef gh51 2 


30n6pqrst4v 


1 47 




LDX KBD 
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1 AO 
I Ho 


3 1 A Kb 




209 


* O D 1 T CI DD 

2. dJ 1 PLPK 


• PQT OKI 

; t b I UN 


1 49 


. I F A2E 






EN COURS DE PROG r 




1 DU 


LrA tttrr 


• PQT PP 


21 


BPL > 1 






UNE TOUCHE DEL ? 




21 1 


JMP PROGMT 




151 


BNE >3 




z 1 2 


1 RbL 




1 52 


DEC CPTC 




2 1 3 


BCS PK&l 


■ C T D flM 

; b 1 P UM 


153 


BNE >4 






OUV , SORT IE CHAINE 




1 54 


INC CPTC 




21 4 


LSR 




1 55 


■4 JMP DEL 




J 


LbK 




1 56 


. Fl 




Zl O 


bib rUNLl 


• C T P flM 

; b l p un 


157 


'3 LDA ***0 






PLEINfc , CUnnRNUfc 




158 


ST A CPTC 




O 1 "7 
21 / 


Bl 1 MUut 




15? 


. IF A2E 




O 1 O 

21 8 


ePL >2 




160 


LDA POM 




21 9 


too nrncc 

JSR REDEF 


;bi LLR 


161 


CPX ***89 


;EST CE 




V NUn .CHANG. LhKhL 1 . 






LA TOUCHE HTAB ? 




220 


2 LDA KB 




162 


BNE >2 




221 


CMP ??*yu 


: b I un 


1 63 


JMP TAB 






WENT DE TAPER RET, 




164 


5 




222 


dNc > 1 


; MLUKb 


165 


; TRANSFORMATION D'UNE 


FRAPPE DE CLA 




Oil' ("IN 1 CODTAIT 

U U UN bUK 1 Hi 1 






UIER APPLE2+ 




223 


D I 1 AU 1 UbUK 


■ i iki Kin 

, UTN INU 


166 


! 






DE LIGNE, 




1 67 


.EL 


;TRI DE 


224 


BPL > 1 






S TOUCHES CTRL 




225 


LDA #4-0 




168 


ST A POM 


; NON 




CTA Al ITDCI 

oIh HU 1 Ur L 






AUTORISEES. 






ill c i r— i_iririC A 1 IT OK 1 1 IM 

ULfc Lh nUDh HU 1 UNUri 




16? 


CPX «*9B 




227 


1 LDA #*0 




170 


BCS SUITE 




oo 

228 


OTA ai iTncno 
Si A AUl USUK 


i OKI AKIM 

; UN RNN 


171 


CPX »*80 






1 ii r ||— CI AC- PiC CflDT t C 

ULE LE FLAG DE SORTIE 




172 


BEQ SUITE 




O 1* o 
22? 


OCiDT imp pDTT 

SUK I 1 NL Lr 1 L 


• AM PflM 

; un uin 


173 


CPX tt*83 






dto i rrc f~ /■ p cnDTT o 
Pit Leo LHKhL . SUK 1 I o 




174 


BEG SUITE 




2,30 


AOI CTATI IC 

HbL S 1 H 1 US 


; 


1 75 


CPX tt*88 




231 


JSK KtS 1 UKfc 


riKi pp 

, UN K t 


176 


BEG SUITE 






MET TOUT DANS L ETAT 




177 


CPX #*8D 




232 


STA <$28) ,Y 


; UU UN 


178 


BEQ SUITE 






1 J A ^tF r - i r~ • III l I - 

LA TROUUE , 




1 7? 


CPX #*?5 




233 


LDA KB 




1 80 


BEQ SUITE 




234 


BIT KBSTROBE 


■ CT flM 

; h 1 UN 


1 81 


CPX #*?8 






SE RET I Rt SUK LH 




182 


BEQ SUITE 




235 


RTS 


■ D O T Kt 


1 83 


CPX ***?A 


;SI CTR 




to r\cc dt irr.c 
Tc DtS PlhDS 






L 2 ,ON SI MULE 




236 


FONCl JMP FUNL 




184 


BNE >7 


; POM P 


237 


1 






LEINE +A OU N POUR 




238 


■ OOI IT T KIO n' IMITIAI T CAT T flM 

; ROUTINE V 1 Nl 1 1 HL 1 SH 1 1 UN 




1 85 


LDA «*CE 


; LA C 




i 






OMMUTAT I ON CLAVIER 




-5," fl 

24U 


I N I 1 L DA «» U 


• T KI T T T A 
\ i N 1 ! 1 M 


1 86 


ST A KB 






1 T CAT T (~1KI ncc PI A HQ 
L 1 ofi I 1 UlN Uto rLRuo 




187 


BIT MODE 




o/i i 
24 1 


C"T/\ "TV D C 
b 1 A 1 T Pt 




: 88 


BPL >8 




242 


c~r/\ Doors 
blA PKUb 




1 89 


LDA #*C1 




243 


'T Av ft_4 1 - 1 r\ r - 

STA MODE 




1?0 


STA KB 




244 


CTA CI DD 
b 1 A r LPK 




1?1 


"8 LDA «*01 




245 


A- *T* X\ f-"T*A*T*l If 

STA Si AT US 




1 ?2 


STA POM 




246 


("TA A| ITflCI 

b 1 A AU 1 Ur L 




1 ?3 


JMP SUITE 




247 


i r~\ a u a a a r c 

LDA HALL-hS 




194 


- 7 CPX tt*82 


;SI CTR 




ONNEMtNI Dt HiMhM 






LB , ON SI MULE POM 




24o 


CTA M PMC T 7 


- npu 


195 


BNE >? 


;PLEINE 




a k. it i r~ pnr\r 

ANT LE CODE. 






+P POUR L APPEL DU 




24y 


L L>R /HLLtb 




196 


LDA «*D0 


; MODE 


^JU 


CTA M CM Q 17+1 
DIM nCI 131 t T i 






PROGRAMME 




251 


kmc 
NUP 




197 


STA KB 






l_L'H rt CIN 1 


■ Mnn t p 


198 


JMP <8 






DU POINTEUR KSUI 




1 99 


"9 LDA «*80 


j SI AUT 


253 


STA KSWDOS 






r~ t " a\ i j i i f~ A* A ^fck IT* Ai i 

RE TOUCHE CONTROLE, 




254 


l f\A / rk it 

L DA / hN 1 




200 


STA POM 


; POM 


255 


STA KSWD0S+ 1 






UK> + TOUCHE ALPHA 




256 


RTS 




201 


LSR 




257 


S 




202 


CLC 




258 


■ nrrvrr t.|i T| nKI nil C~\ AIITCD 

; KfcUfcrlNI 1 IUN DU LLHVltK 




20 3 


Aril" i^o 
HUU Kb 




259 


! 




204 


STA KB 




260 


REDEF LDA KB 


: LECTUR 


205 


built L L>H r UTI 






r— p-O 1 A TADI O f~. [T 

E DE LA TABLE DE 




206 


LDX KB 




261 


CMP «*FB 


; REDEFI 


207 








NITION INDEXEE PAR 




208 


.FI 




262 


BCS FIND 


; LE COD 
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263 

264 
265 
266 
267 
268 
26? 
270 
271 
272 
273 
274 
275 
276 
277 

278 

279 

280 

281 
282 
283 

284 

285 
286 

287 
288 
289 

290 
291 
292 

293 

294 
295 

296 
297 
293 
299 
300 
301 
30 2 
30 3 

304 

30 5 
306 
307 
308 
309 

310 

31 1 

312 
31 3 

314 
315 
31 6 
317 



E ASCI I DU CARAC. 

CMP **A0 
-*A0 

BCC FIND 
SBC #*A0 
TAY 

LDA »ATR 
STA ALP 
LDA /ATR 
STA ALP+1 
LDA (ALP) ,Y 
STA KB 
FIND RTS 

•TOUCHES PROGRAMMEES 

PRG1 LDA tt*0 

TION DU FLAG DE SOR- 
STA AUTOSOR' 
NO DE LIGNE 

JSR CALCA 
ADRESSE CHAINE 
LDA TYPE 

LE 

BEG S0RT2 



ANNULA 
TIE DE 
CALCUL 
CONTRO 



j ROUTINE DE SORTIE D'UNE CHAINE POIN 

TEE PAR ALP , 
j TERMINEE PAR *0 





PMES ASL PROG 

ORTIE CHAINE 
SEC 

ROR PROG 
LDA #*0 
UR EN DEBUT DE CHAINE 
STA PTTB 
TAY 

LDA (ALP) ,Y 
E 1ER CARACTERE 
BNE PR62 
TOUCHE "VIDE" 
. I F A2E 
JMP SORT 
.EL 
SEC 

LDA KB 
SBC »*40 
STA KB 
JMP SORT 
.FI 

PRG2 LDY PTTB 

E CHAINE ET SORTIE 

LDA (ALP) ,Y 
ARACTEREE 

BEG FINP 
STA KB 
INC PTTB 
S0RT2 JMP SORT 

FINP ASL PROG 

CHAINE TERMINEE , 

LSR PROG 
LE FLAG ET RETOUR 
JMP LEC 
TURE CLAVIER 



; FLAG S 

j POINTE 

; LECTUR 
; SI *00 



•.LECTUR 



; DU C 



SI *00 
ANNULE 
EN LEC 



ROUTINE DE CALCUL DE L'ADRESSE D' 
UNE CHAINE 



CALCA 



LDA «*0 
STA TYPE 
LDA KB 
CHE FRAPPEE EST ALPHA 



31 8 



QUE, 



CMP #*DB 
OU NON 



31 9 


MM CDl C 


BCS 


SORT1 






LrU- 1 


«*L 1 


•5Z 1 




nr-p 

HLb 


A] C/\ 


*5 o o 




. I P 


Hit 






PMP 


«» DM 






bio 


COOT 1 

bUK I 1 


O O ^ 






DU 


326 




NOP 




327 




BCS 


NUM 


328 




. FI 




32? 


SORT1 


RTS 




330 


ALFA 


SBC 


tttCl 



; NUMER I 
; PROGRA 



INDEX CHAINE DANS 

331 ASL 

LE ALPHA. ET RAN GEM . 

332 ASL 
ULTAT DANS LE 

333 ASL 
UR ALP 



; CALCUL 
; LA TAB 
;DU RES 
;POINTE 



; LA TOU 



334 


.IF 


A2E 


335 


ADC 


HATP 


336 


STA 


ALP 


337 


LDA 


/ATP 


338 


.EL 




339 


ASL 




340 


PHA 




341 


LDA 


ttSO 


342 


ADC 


/ATP 


343 


STA 


ALP+1 


344 


CLC 




345 


PLA 




346 


ADC 


ttATP 


347 


STA 


ALP 


348 


LDA 


ALP+1 


349 


.FI 




350 


ADC 


«*0 


351 


STA 


ALP+1 


352 


ASL 


TYPE 


353 


SEC 




354 


ROR 


TYPE 


355 


RTS 




356 


. I F 


A2E 


357 NUM 


SBC 


ttSBO 



VEC TABLE TOUCHES 
358 ASL 
GUES 



; I DEM A 
;NUMERI 



359 




ASL 




360 




ASL 




361 




STA 


CODE 


362 




ASL 




363 




ADC 


CODE 


364 




ADC 


WATN 


365 




STA 


ALP 


366 




LDA 


/ATN 


367 




ADC 


tt*0 


368 




STA 


ALP+1 


369 




LSR 


TYPE 


370 




SEC 




371 




ROL 


TYPE 


372 




RTS 




373 




.FI 




374 


! 






375 


i FONCTIONS 


APPEL 




E 






376 








377 


FONC 


LDA 


KB 


378 


■> 


CMP 


tt*D0 


379 




BEG 


TPR 


380 




CMP 


»*CE 


381 




BEG 


TNU 



POM PLEIN 



;TRI P 



: N ? 



Pom's n° 17 





382 




LMr «»L1 


■ ru i a 

, W 1—1 


A "3 "7 

Al 
















383 








Hbr 




384 




Jrlr bUKI 




a a n 
44U 






1 NU 


i r,«^ H3CC 


■ PA C . C .AG 








k tN 


1 lUL't LLHV IN UI 1 ■ 




,1/11 




38c 




cta MnnP 








387 




i |"nj MM Q fV2 


; ET SO 


x4Z 






K 1 , t 






.4 <1 
H H o 




388 




STA ALP 




444 




389 




l_ L'M .- 1 1 JUZ 




H H 3 




390 




b 1 H HLr+ 1 








391 




Jl"lr rntb 




4ho 




392 


TAL 


i r\*~i u«n n 

LUH H»UU 


•MODF A 








LPHA 


ET MtbbAbb 




/l A ~J 




393 




b 1 M rlUUt 








394 




L L'A t?rl b b b 




.1 P 




395 




3 1 H HLr 








396 




LL>A /rlbbb 




A A O 

44y 




397 




STA ALP+1 












JMP PMES 




MJU 




o o o 








X Jl 




A (~| ft 

4UU 


: ROUTINE DE PROGRAMMAT I ON : 


UAL I DAT I 

V T 1 I - A W III * 








N 










4U 1 


! 










40 2 


RANG1 


LDA «*0 




/l R Q 






DANS LE BUFFER , 








40 3 




STA AZT,X 


i 


4D3 






EN 


FIN DE CHAINE 








40 4 




I NX 




MJO 




405 




TXA 








406 




TAY 




4^7 




407 


RECOP 


DEX 




a. 




408 




DEY 




*4Dy 




409 




BMI FINPR 




460 




410 




LDA AZT.X 


; ON REC 


461 




0PIE_ 


LE BUFFER DANS 




462 




4 1 1 




STA (ALP) ,Y 


; LA TA 


463 






BLE 


DE RANGEMENT 




464 




41 2 




JMP RECOP 




465 




41 3 


LEC1 


JMP LEC 




466 




41 4 


FINPR 


LDA KB 




467 




415 




STA CODE 




468 




416 




ASL FLPR 


■ on pne; 

■ ui n ruj 


469 






ITIONNE LE FLAG DE 




470 




41 7 




LDA HMSG1 


« i-' r\ i l c 


471 






, ON 


AFFICHE LA 




472 




41 8 




STA ALP 


• TOUCHE 


473 






D' AFFECTATION 




474 




419 




LDA /MSG1 


; ET LE 


475 






MESSAGE CORRESPONDANT 




476 


420 




STA ALP+1 




477 


421 




JMP PMES 


^ our, i it 


478 
479 


422 


• 






480 


423 


; ROUTINE DE PROGRAMMAT I ON : 


I ^ I E . E D 


481 




ITION 




482 


424 


; 






483 


425 


TPR 


LDA HMSG0 


; PASSAG 


484 






E EN 


MODE PROGRAMME 




485 


426 




STA ALP 


; SORT 1 E 


486 




DU MESSAGE. 




427 




LDA /MSG0 




487 


428 




STA ALP+1 




429 




LDA **80 




488 


430 




STA FLPR 




431 




LDA «»0 




489 


432 




STA LPR 




490 


433 




JMP PMES 




434 








491 


435 


PRO GMT 


LDA KB 


t l IN 1 C Pi 




EPTION DES FRAPPES 




492 


436 




CMP tt*9B 


; REF 


493 




US DE ESC ET CTRL X. 




494 



BEQ LEC1 
CMP tt*98 
BEQ LEC1 
CMP #*8D 
URN.APPEL DU MODE NUM 
BNE >7 
LIGNES. 

JMP AUTOLIN 
-7 BIT POM 

BMI >3 
CMP ««88 
RACTERES FRAPPES SONT 
BNE > 1 
DANS LE BUFFER AZT 
LDX LPR 
NTEUR X PREND EN 
BEQ LEC1 
LES TOUCHES FLECHES 
"6 DEC LPR 

ET ARRIERE. 

JMP SORT 
• 1 CMP «*95 

NTEUR CONTROLE LA 

BEQ >2 
MAX DE LA CHAINE 
LDX LPR 
STA AZT.X 
"2 INC LPR 

T APRES FRAPPE 

LDX tt*18 
HE POMME QUVERTE . 
CPX LPR 
BCC <6 
JMP SORT 
"3 JSR CALCA 

LDX LPR 
LDA TYPE 
BEQ LEC1 
BIT TYPE 
BPL >5 
. I F A2E 
CPX *»»08 
.EL 

CPX tt*10 
.FI 

BMI >4 

. I F A2E 
LDX #*07 

.EL 

LDX KS0F 
.FI 

-4 JMP RAN 61 

-5 CPX »*18 

BMI RA1 

LDX «*17 
RA1 JMP RANG1 

Ifonction TABULATION 

TAB BIT POM 

E LA POMME OUY. 

BMI >1 
E SENS DE DEPLAC- 

LDA ttFTAB 
CURSEUR. 

STA ALP 

LDA /FTAB 
T UNE CHAINE DE 

STA ALP+1 
RL H OU CTRL U. 

JMP PMES 
- 1 LDA HBTAB 

STA ALP 

LDA /BTAB 



;SI RET 
! DE 



:LES CA 
; RANGES 
; LE POI 
jCOMPTE 
; AUANT 

; LE POI 
; LONG . 

;0N SOR 
: TOUC 



iTEST D 
;POUR L 
; EMENT 

;0N SOR 
; 10 CT 



60 



Pom's n° 17 



49S 


STA 


ALP+1 




DOD 


* o i 


< TVTPTP ^ Y 


4 

M 7 O 


JMP 


PMES 




DD6 


LMP 


ff*U 


497 


■ 






557 


BEQ 


AUTOF I N 




i FONCT I ON DEL 




DDO 


CMP 


*t*2C 


H7 7 








559 


BEQ 


AUTOFIN 


500 


DEL SEC 




• tin Qfic 


DOU 


JSR 


FRMNUM 




T UNE CHAINE DE CPTC 






DE L' INCREMENT. 


sn i 


i r\/\ 
LL>R 


« L L> h L 




56 1 


JSR 


GETADR 




T C f"T o I II 
lb l_ 1 KL U . 






562 


LDA 


LINNUM 


DU ^ 


SBC 


CPTC 




563 


ORA 


LINNUM+1 


DU o 


STA 


ALP 




564 


BEQ 


AUTOF I N 


DU 4 


LDA 


/ZDEL 




565 


LDA 


LINNUM 


DU D 


SBC 






IT 

DC6 


STA 


INCL 


DU 6 


STA 


ALP+1 




JO / 


LDA 


L I NNUM + 1 


c;ri7 


SEC 






JOO 


STA 


1NCL+ 1 


sn Q 
DU O 


LDA 


«*0 




S A Q 
JOT 


AUTOFIN LDA 


WSFF 


DU 7 


SBC 


CPTC 






DES FLAGS 


ET SORTIE 


51 


STA 


CPTC 




570 


STA 


AUTOFL 


51 1 


JMP 


PMES 






SSAGE. 




512 








571 


ASL 


FLPR 


51 3 


; NUMEROTAT I ON LI ONES: SA1SIE 


DES PA 


572 


LDA 


ttNUL 




RAMETRES 






573 


STA 


ALP 


S 1 4 


i 




; S00 E 


574 


LDA 


/NUL 




AUTOLIN LDX 


LPR 


575 


STA 


ALP+1 




N FIN DU BUFFER AZT . 




576 


JMP 


PMES 


D 1 o 


LDA 


«*0 




577 


• 






STA 


AZT.X 




578 


i NUMEROTAT I ON LIGNES: £ 


S 1 9 
D 1 O 


I NX 








S 




SI 9 

•J l 7 


STA 


AZT.X 




57? 






— ^ 


DEX 






580 


NUM1 CLC 






STA 


NLIN+1 




581 


LDA 


NLIN 


S 99 


STA 


INCL+1 






NOUVEAU NO DE LIGNE 




TAY 






582 


ADC 


INCL 


S 94 
O £ t 


DEX 








NTIER 2 OCTETS. 


_ — - 


BMI 


>5 




583 


STA 


NLIN 


— 1 a. o 


-4 LDA 


AZT.X 


;MISE E 


584 


LDA 


NLIN+1 




N FORME DU 


BUFFER. 




585 


ADC 


INCL+1 


S97 


AND 


tt*7F 




586 


STA 


NLIN+1 


Ji-O 


"3 STA 


AZT.X 




587 


NUM2 LDA 


#*01 


U £. 7 


DEX 








EN FLOTTANT, 




BPL 


<4 




588 


LDY 


tt*00 


•=;9 1 


"5 ASL 


FLPR 




589 


JSR 


G I VAYF 


S99 
DO£ 


BIT 


KBSTROBE 


■ DEBLOQ 


590 


JSR 


MOVAF 




UER LE CLAVIER SI LES 




591 


LDY 


NLIN+1 


COO 


LDA 


KAZT 


; ROUT I 


592 


STY 


L 1 NNUM+ 1 




NES FRMNUM 


GETADR , 




593 


JSR 


SNGFLT 


S94 


STA 


TXTPTR 


; " PLAN 


594 


JSR 


FMULTT 




TENT" ET FONT SORTIR 




595 


JSR 


MOVAF 


croc: 
DoD 


LDA 


/AZT 


; PAR H 


596 


LDY 


NLIN 




NDLERR. 






597 


STY 


LINNUM 


COX 


STA 


TXTPTR+1 




598 


JSR 


SNGFLT 


S97 


LDA 


*S0A 


; ON POS 


599 


JSR 


FADDT 




ITIONNE LE 


TXTPTR, 






JSR 


FOUT 




STA 


NLIN 


; ON RAN 




TILISER LA 


ROUTINE 




GE LES VALEURS PAR 




60 1 


STA 


ALP 


S99 

JO 7 


STA 


INCL 


; DEFAU 




VERSION EN 


CHAINE. 




T. 






602 


STY 


ALP+1 




LDA 


(TXTPTR) ,Y 




603 


LDA 


#*FF 


S4 1 


CMP 






604 


STA 


AUTOSOR 


542 


BEQ 


AUTOFIN 




6U D 


LDY 


tt*0 


543 


CMP 


#*2C 




606 


• 1 LDA 


(ALP) ,Y 


544 


BEQ 


CALINC 




607 


BEQ 


>2 


545 


JSR 


FRMNUM 


;CALCUL 


608 


ORA 


«*80 



546 

547 
548 
549 
550 
551 
552 
553 
554 



ET RANGEMENT DU NO 
JSR GETADR 

GNE 

LDA LINNUM 
STA NLIN 
LDA LINNUM+1 
STA NLIN+1 
CALINC LDY **0 

INC TXTPTR 

BNE >2 

INC TXTPTR+1 



; DE LI 



;CALCUL 



;PREPA 
; DU ME 



SORTIE NUMERO 

;CALCUL 
; EN E 



;CALCUL 



;POUR U 
; DE CON 



0. DES CHIFFRES EN 

609 STA (ALP) ,Y 
NEGATIF. 

610 I NY 

611 JMP <1 
612-2 LDA «*A0 

MINE PAR UN BLANC. 

613 STA (ALP) ,Y 
T PLUS JOLI MM). 

614 I NY 

615 TYA 



jTRANSF 
; ASCII 

;ON TER 

; (C'ES 



Pom's n° 17 



61 



61 6 PHA 

617 JSR FNDLIN :LA Lib 
NE EXISTE ELLE ? 

618 BCC >3 

619 LDA **0 ;OUI .0 
N ANNULS TOUT, 

620 STA AUTOFL 

621 STA AUTOSOR 

622 PLA 
£.23 W 

624 LDA »*S7 ; ON F 
AIT COUINER 

625 STA (ALP; ,Y ; ET ON 
TERM I NE PAR CTRL X . 

626 I NY 

627 STA <ALP) ,Y 

628 I NY 

629 LDA ***98 

630 STA (ALP) ,Y 



631 I NY 

6 32 TYA 

633 PHA 

634 "3 PLA 

635 TAY 

636 LDA ***0 

637 STA (ALP) ,Y 

638 STA CPTC 

639 JMP PMES ;ON SOR 
T LE NUMERO PAR LA 

640 ; YOIE 



HAB I TUELLE . 

641 ; 

642 ; 

643 ;AU REVOIR LES PETITS AM I S , ET A BI EN 

TOT 

c44 ; 

645 LONGUEUR = *-ACCES 

646 END 



CLAVIER 2 E 



3600- 4C 73 39 00 00 00 00 00 
87F6 . 8C50 



87F6- 
87F8- 
8800- 
8808- 
8810- 
881 8- 
8820- 
8828- 
8830- 
8838- 
8840- 
8848- 
8850- 
8858- 
8860- 
8868- 
8370- 
8878- 
8880- 
8888- 
3890- 
8898- 
88A0- 
88A8- 
88B0- 
88B8- 
88C0- 
88C8- 
88D0- 
8808- 
88E0- 
88E8- 
88F0- 
88F8- 
3900- 
3908- 
39! J - 
8918- 
3920- 
8928- 
3930- 
3938- 
8940 
3943- 
3950- 
3958- 
8960- 
8963 
8970 
8978 
8980 
8988 
8990 
8998 
89A0 
89A8 



00 AO 
Al A2 A3 
A9 AA AB 
Bl B2 B3 
B9 BA B8 
CI C2 C3 
B5 Bl B2 
Dl 02 03 
09 DA DB 
El E2 E3 
B5 Bl B2 
Fl F2 F3 
F9 FA DO 
CD CD C5 
CI C6 C6 
CI AO 00 
CI D5 D4 
98 00 C2 
D5 CO C5 
AO AO 98 
C9 C5 02 
CI C2 C5 
93 00 95 
95 95 95 
88 88 88 
88 88 88 

88 88 88 
4A FF 24 

89 2C OC 
03 OE OC 
EE 00 86 
86 10 11 
00 3 4C 
03 4C DO 
FB 2C 62 
29 80 AA 
80 10 86 
86 EO FF 
DO 03 EE 
A9 00 80 
EO 89 DO 
OE 86 10 

79 4A 
10 03 20 
C9 8D DO 
05 A9 00 
80 08 86 
36 20 3F 
86 2C 10 
A9 00 8D 
FF 80 OE 
07 86 A9 

85 74 EA 
A9 88 80 

86 C9 FB 
10 E9 AO 



- 30 



A4 A5 
C5 AO 
B4 35 
BC BO 
C4 C5 
83 BO 
D4 84 
OC DD 
E4 E5 
B3 BO 
F4 B4 
02 CF 
AO BA 
C5 C3 
AO AO 
CF CE 
CC CF 
02 C9 
00 C3 
AO CI 
04 C9 
95 95 
95 00 
88 38 
88 88 
88 88 
FE 10 
86 10 
86 38 
2C 10 
AD OA 
E3 88 
88 2C 
CO 08 
63 OA 
AE 00 
DO OB 
OD 86 
00 86 
3 4C 
03 4C 
4A BO 
9E 89 
OA 2C 
80 07 
EE 00 
FF 91 
CO 60 
08 86 



36 
00 

A9 



3D 
35 
C7 



56 AA 
BO 14 
A8 A9 



A6 A7 A8 
AE AF BO 
86 B7 B8 
BE BF CO 
C6 C7 C8 
CE B6 DO 
06 07 08 
OE OF EO 
E6 E7 E8 
EE B6 FO 
F6 F7 F8 
C7 D2 CI 
AO 00 AO 

04 C5 AO 
98 00 AO 

05 CD AO 
C3 AO CE 
01 05 C5 
CC CI 06 
CC DO C8 
Dl 05 C5 
95 95 95 
88 88 88 
88 38 88 
88 88 88 
88 00 20 
03 4C 09 
3 20 EA 
6E OC 86 
CO 2C 07 
86 C9 98 
C9 3D DO 
00 CO 10 
AD 61 CO 
8A 69 00 
CO 8E OA 
CE 00 86 
4C 29 8B 
AO 10 86 
OE 38 2C 
AF 8A OA 
2F 24 FF 
AO OA 86 
08 86 10 
86 A9 00 
86 OE OC 
28 AD OA 
4C 3F 8A 
85 FE 
OC 86 
73 A9 
80 55 AA 
60 AD OA 
C9 AO 90 
F7 85 FC 



83 
3D 
86 



89B0- 
8988- 
89C0- 
89C3- 
8900- 
3908- 
39E0- 
39E8- 
89F0- 
39F8- 
3A00- 
8A08- 
8A1 0- 
8A18- 
8A20- 
8A28- 
8A30- 
8A38- 
8A40- 
8A48- 
8A50- 
8A58- 
8A60- 
8A68- 
8A70- 
8A78- 
8A80- 
8A88- 
8A90- 
8A98- 
8AA0- 
8AA8- 
8AB0- 
8AB8- 
8AC0- 
8AC8- 
8AD0- 
8AD8- 
8AE0- 
8AE8- 
8AF0- 
8AF8- 
8800- 
8B08- 
8810- 
8B18- 
8B20- 
8823- 
8B30- 
8B38- 
8840 
3B48 
8B50 
8B5S 
8860 
8B68 
8B70 
8878 
8B80 
8888 
3B90 



A9 87 
86 60 
FO 89 
FE 38 
86 A8 
89 AC 
80 OA 
89 06 
A9 00 
C9 DB 
C9 BA 
18 60 
2F 85 
FO OE 
60 E9 

88 OA 
FC A9 
8 86 
OA 86 
FO 07 

89 A9 
FC A9 
A9 00 
A9 88 
00 90 
88 30 
4C 77 
86 8D 
5F 85 
C7 89 

85 FO 
00 80 
OA 86 
FO C9 
8B 2C 
DO OB 
OF 86 
06 AE 
OF 86 
E6 4C 
OF 86 
OB 86 
A2 07 
2 A2 

86 30 

88 35 
35 FC 

89 38 
FC A9 
A9 00 
4C C7 

- 90 1 1 
80 04 
30 OB 

- 1 1 36 
2C 10 
86 85 
80 05 
3C C9 
20 52 
A5 51 



95 FO 
A9 00 
AD 08 
66 FE 
Bl FC 

09 86 
86 EE 
FE 46 
3D OB 
30 OD 
BO 05 
E9 CI 
FC A9 
03 86 
30 OA 
60 6A 
86 69 
38 2E 
C9 DO 
C9 CI 
FF 85 
88 85 
85 FF 
85 FD 
11 86 
OB BD 
8A 4C 
6A 88 
FC A9 
A9 52 
A9 80 
OF 86 
C9 9B 
C9 80 

10 86 
AE OF 
4C 63 
OF 86 
A2 18 
63 89 
AD OB 
10 09 
4C 6F 
17 4C 
08 A9 
FD 4C 
A9 88 
A9 C6 

88 E9 
ED OD 

89 AE 
86 E3 
86 80 
BD 1 1 
CA 10 
CO A9 
B9 A9 
86 31 
2C FO 
E7 A5 
3D 04 



Bl FC 
8D 08 
86 FO 
A9 00 
DO 03 
31 FC 
09 86 
FE 4C 
36 AO 
C9 CI 
C9 80 
OA OA 
86 o9 
38 6E 
OA OA 
88 69 
00 35 
OB 86 
FO 54 
FO 12 
FF A9 
FO 4C 
A9 8C 
4C C7 
E8 8A 
11 86 
09 88 
OE OE 
83 85 

85 FC 
80 OE 
4C C7 
FO CD 
DO 03 
30 26 

86 FO 
99 C9 
9D 1 1 
EC OF 
20 FO 
86 FO 
EO 08 
8A EO 
6F 8A 
A2 85 
C7 89 

85 FD 
ED OD 

00 85 

86 80 
OF 86 
9D 1 1 
06 86 
86 29 
F5 OE 

1 1 85 
OA 3D 
B8 C9 
10 20 
50 80 
86 AO 



8D OA 
86 20 
IF 06 
80 9 
4C 63 
FO 09 
4C 63 
D9 88 
OA 36 

90 OA 
EA SO 
OA 69 
00 85 
OB 86 
80 6A 
FF 85 
FO 4E 
60 AD 
C9 CE 
4C 63 
7A 85 
C7 89 

85 FC 
89 A9 
A8 CA 

91 FC 
AD OA 

86 A9 
FD 4C 
A9 88 
86 A9 
89 AD 
C9 98 
4C 43 
C9 88 
B4 CE 
95 FO 
86 EE 
86 90 
89 AE 
8C 2C 
30 02 
18 30 
2C 10 
FC A9 
A9 BC 
4C C7 
86 85 
FO 38 
OD 86 
A9 00 
36 CA 
A8 CA 
7F 90 
OE 86 
38 A9 
3 36 
00 FO 
67 DD 
03 86 
00 E6 



8B93- 


38 


00 


02 


E6 


B9 


Bl 


83 


C9 


8BA0- 


00 


FO 


1A 


C9 


2C 


FO 


16 


20 


8BA8- 


67 


DO 


20 


52 


E7 


A5 


50 


05 


8B80- 


51 


FO 


OA 


A5 


50 


80 


05 


36 


3B88- 


A5 


51 


80 


06 


86 


A9 


FF 


8D 


88C0- 


07 


86 


OE 


OE 


86 


A9 


6F 


85 


8BC8- 


FC 


A9 


88 


85 


FD 


4C 


C7 


89 


8BD0- 


13 


AD 


03 


86 


60 


05 


86 


3D 


8808- 


03 


86 


AO 


04 


36 


60 


06 


86 


88E0- 


80 


04 


86 


A9 


01 


AO 


00 


20 


8BE8- 


F2 


E2 


20 


63 


E3 


AC 


04 


86 


88F0- 


84 


51 


20 


01 


E3 


20 


82 


E9 


3BF9- 


20 


63 


E3 


AC 


03 


86 


84 


50 


8C00- 


20 


1 


E3 


20 


CI 


E7 


20 


34 


3C08- 


ED 


85 


FC 


84 


FD 


A9 


FF 


80 


8C10- 


08 


86 


AO 


00 


81 


FC 


FO 


08 


8C18- 


09 


80 


91 


FC 


C8 


4C 


14 


8C 


8C20- 


A9 


AO 


91 


FC 


C8 


98 


48 


20 


8C2S- 


1A 


D6 


90 


19 


A9 


00 


3D 


07 


8C30- 


86 


80 


08 


86 


68 


A8 


A9 


87 


8C38- 


91 


FC 


C8 


91 


FC 


C8 


A9 


98 


8C40- 


91 


FC 


C8 


98 


48 


68 


A8 


A9 


8C48- 


00 


91 


FC 


80 


OD 


86 


4C 


C7 


8C50- 


89 
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+ 










8600- 


4C 


8C 


89 


00 


00 


00 


00 


00 



87DD.8C50 



87DD- 
87E0- 
87E8- 
87F0- 
87F8- 
8800- 
8808- 
8810- 
8818- 
8820- 
8828- 
8830- 
8838- 
8840- 
8848- 
8850- 
8858- 
8860- 
8868- 
8870- 
8878- 
8880- 
8888- 
8890- 
8898- 
88A0- 
88A8- 
88B0- 
88B8- 
88C0- 



00 AO 
A2 A3 
AA AB 
B2 B3 
BA BB 
C2 C3 
Bl B2 
02 03 
DA DB 
E2 E3 
Bl 82 
F2 F3 
FA DO 
CD C5 
C6 C6 
AO 00 
05 D4 
00 C2 
CD C5 
AO 98 
C5 02 
C2 C5 
00 95 
95 95 
88 88 
88 88 
88 88 
FF 24 
2C OC 
OE OC 



Al 

A4 A5 A6 
C5 AD AE 
B4 B5 86 
BC BD BE 
C4 C5 C6 
83 BO CE 
D4 84 06 
DC DD DE 
E4 E5 E6 
B3 BO EE 
F4 B4 F6 
02 CF C7 
AO BA AO 
C5 C3 04 
AO AO 98 
CF CE 05 
CC CF C3 
02 C9 Dl 
00 C3 CC 
AO CI 
04 C9 01 
95 95 95 
95 00 88 
88 88 83 
88 88 88 
88 88 88 
FE 10 03 
86 10 03 
86 38 6E 



El 

95 



CC DO 



A7 A8 A9 

AF BO 81 

B7 B8 B9 

BF CO CI 

C7 C8 B5 

B6 DO 01 

07 08 09 

DF EO 

E7 E6 

B6 FO Fl 

F7 F8 F9 

D2 CI CD 

00 AO CI 

C5 AO CI 

00 AO CI 

CD AO 98 

AO CE D5 

D5 C5 AO 

CI 06 C9 
C8 CI 

05 C5 98 

95 95 95 

88 88 88 

88 88 88 

88 88 88 

20 4A 
4C F6 89 

20 EA 03 

OC 86 EE 



88C3- 00 86 2C 10 CO 2C 07 86 
8800- 10 11 AO OA 86 C9 98 DO 
8808- 03 4C E3 8B C? 80 DO 03 
88E0- 4C DO 88 2C 00 CO 10 F8 
88E8- AE 00 CO 8E OA 86 A9 00 
88F0- 80 00 86 80 10 86 EO 9B 
38F3- BO 4B EO 80 FO 47 EO 83 
8900- FO 43 EO 88 FO 3F EO 80 
8908- FO 38 EO 95 FO 37 EO 98 
8910- FO 33 EO 9A 00 16 A9 CE 
8918- 8D OA 86 24 FF 10 05 A9 
8920- CI 80 OA 86 A9 CI 80 10 
8928- 86 4C 45 89 EO 82 00 08 
8930- A9 DO 80 OA 86 4C 24 89 
8938- A9 80 80 10 86 4A 18 60 
8940- OA 86 80 OA 86 AO 10 86 
8948- AE OA 86 2C OE 86 10 03 
8950- 4C AF 8A OA BO 78 4A 4A 
8958- BO 2F 24 FF 10 03 20 82 
8960- 89 AO OA 86 C9 80 DO OA 
8968- 2C 08 86 10 05 A9 00 80 
8970- 07 86 A9 00 80 08 86 EE 
8978- 00 86 OE OC 86 20 3F FF 
8980- 91 28 AO OA 86 2C 10 CO 
8988- 60 4C 3F 8A A9 00 80 08 
8990- 86 85 FE 85 FF 80 OE 86 
8998- 80 OC 86 80 07 86 A9 00 
89A0- 85 73 A9 86 85 74 EA A9 
89A8- AE 80 55 AA A9 88 8D 56 
89B0- AA 60 AD OA 86 C9 FB BO 
89B8- 14 C9 AO 90 10 E9 AO A8 
89C0- A9 OE 85 FC A9 87 85 FD 
89C8- Bl FC 80 OA 86 60 A9 00 
89D0- 8D 08 86 20 OD 8A AO 08 
8908- 86 FO 28 06 FE 38 66 FE 
89E0- A9 00 80 09 86 A8 Bl FC 
89E8- DO OC 38 AD OA 86 E9 40 
89F0- 80 OA 86 4C 77 89 AC 09 



89F8- 


86 


81 


FC 


FO 


09 


80 


OA 


86 


8AO0- 


EE 


09 


86 


4C 


77 


89 


06 


FE 


8A08- 


46 


FE 


4C 


CO 


88 


A9 


GO 


80 


SA1 0- 


OB 


86 


AD 


OA 


86 


C9 


OB 


BO 


8A1 8- 


04 


C9 


CI 


BO 


01 


60 


E9 


CI 


8A20- 


OA 


OA 


OA 


OA 


48 


A9 


00 


69 


8A23- 


86 


85 


FD 


18 


68 


69 


2F 


85 


8A30- 


FC 


A5 


FD 


69 


00 


85 


FD 


OE 


8A38- 


08 


86 


38 


6E 


OB 


86 


60 


AD 


8A40- 


OA 


86 


C9 


00 


FO 


54 


C9 


CE 


8A48- 


FO 


07 


C9 


CI 


FO 


12 


4C 


77 


8A50- 


89 


A9 


FF 


85 


FF 


A9 


61 


85 


8A58- 


FC 


A9 


83 


85 


FD 


4C 


DB 


89 


8A60- 


A9 


00 


85 


FF 


A9 


73 


85 


FC 


8A68- 


A9 


88 


85 


FD 


4C 


DB 


89 


A9 


8A70- 


00 


90 


1 1 


86 


E3 


8A 


A3 


CA 


8A73- 


88 


30 


OB 


BD 


1 1 


86 


91 


FC 


8A80- 


4C 


77 


8A 


4C 


CO 


88 


AD 


OA 


3A88- 


86 


80 


51 


33 


OE 


OE 


86 


A9 


8A90- 


46 


85 


FC 


A9 


88 


35 


FO 


4C 


8A98- 


DB 


89 


A9 


39 


85 


FC 


A9 


88 


8AA0- 


85 


FD 


A9 


80 


8D 


OE 


86 


A9 


8AA8- 


00 


8D 


OF 


86 


4C 


D8 


89 


AO 


8AB0- 


OA 


86 


C9 


9B 


FO 


CD 


C9 


98 


8AB8- 


FO 


C9 


C9 


30 


00 


03 


4C 


43 


8AC0- 


8& 


2C 


10 


86 


30 


26 


C9 


88 


8AC8- 


DO 


OB 


AE 


OF 


86 


FO 


B4 


CE 


8A00- 


OF 


86 


4C 


77 


89 


C9 


95 


FO 


8A08- 


06 


AE 


OF 


86 


90 


1 1 


86 


EE 


8AE0- 


OF 


86 


A2 


1 8 


EC 


OF 


86 


90 


8AE8- 


E6 


4C 


77 


89 


20 


OD 


8A 


AE 


8AF0- 


OF 


86 


AD 


OB 


86 


FO 


8C 


2C 


8AF3- 


08 


86 


10 


09 


EO 


10 


30 


02 


8B00- 


A2 


OF 


4C 


6F 


8A 


EO 


18 


30 


8808- 


02 


A2 


17 


4C 


6F 


8A 


2C 


10 


8810- 


86 


30 


OB 


A9 


89 


85 


FC 


A9 


8818- 


88 


85 


FD 


4C 


DB 


89 


A9 


A3 


8B20- 


85 


FC 


A9 


88 


85 


FD 


4C 


DB 



8B28- 89 38 A9 AD ED OD 86 85 
3B30- FC A9 88 E9 00 85 FD 38 
8B38- A9 00 ED CO 86 SD 00 86 
3B40- 4C DB 89 AE OF 86 A9 00 
8B43- 90 1 1 86 E8 90 1 1 86 CA 
8B50- 80 04 86 80 06 86 A8 CA 
8B58- 30 OB 8D 11 86 29 7F 90 
8B60- 1 1 86 CA 10 F5 OE OE 86 
8B68- 2C 10 CO A? II 85 B8 A9 
8870- 86 85 B9 A9 OA 80 03 86 
8878- 80 05 86 Bl B8 C9 00 FO 
8880- 3C C9 2C FO 10 20 67 DO 
8B88- 20 52 E7 A5 50 80 03 86 
B890- A5 51 80 04 86 AO 00 E6 
8B98- B8 DO 02 E6 B9 Bl B8 C9 
8BA0- 00 FO 1A C9 2C FO 16 20 
8BA8- 67 DO 20 52 E7 A5 50 05 
88B0- 51 FO OA A5 50 80 05 86 
88B8- A5 51 8D 06 86 A9 FF 80 
88C0- 07 86 OE OE 86 A9 56 85 
8BC8- FC A9 88 85 FD 4C DB 89 
8BD0- 18 AD 03 86 6D 05 86 80 
S8D8- 03 86 AD 04 86 6D 06 86 
8BE0- 80 04 86 A9 01 AO 00 20 
8BE8- F2 E2 20 63 EB AC 04 86 
88F0- 84 51 20 01 E3 20 82 E9 
88F8- 20 63 EB AC 03 86 84 50 
8C00- 20 1 E3 20 CI E7 20 34 
8C08- ED 85 FC 84 FD A9 FF 80 
8C10- 08 86 AO 00 Bl FC FO 08 
8C18- 09 80 91 FC C8 4C 14 8C 
8C20- A9 AO 91 FC C8 98 48 20 
8C28- 1A D6 90 19 A9 00 80 07 
8C30- 86 80 08 86 68 A8 A9 87 
8C38- 91 FC C8 91 FC C8 A9 98 
8C40- 91 FC C8 98 48 68 A8 A9 
8C48- 00 91 FC 8D OD 86 4C DB 
3C50- 89 



Visualisation d'une Distribution Normale 



Daniel Hirst 



Dans de tres nombreuses situations, 
on peut observer que la valeur d une 
variable quelconque est fonction 
d'un grand nombre d'evenements 
elementaires dont les valeurs indivi- 
duelles sont incertaines. 

Lexemple le plus couramment utilise 
est celui de la longueur d'une queue 
de file d'attente a un guichet. En 
supposant que le temps de traite- 
ment de chaque client par I'employe 
est constant, la longueur de la queue 
depend du rythme d'arrivee des nou- 
veaux clients; or. le temps ecoule 
entre deux arrivees est une variable 
aleatoire. On demontre que. pour un 
nombre infini d'evenements elemen- 
taires. la fonction globale suit une 
distribution dite "normale" dont la 
representation graphique est appelee 



courbe de Gauss et suit 1" equation : 
y- 1 . e -(x-m) /2s 2 



s VTpi 

avec m la moyenne arithmetique, s 
l'ecart-type (c'est a dire l'ecart 
moyen par rapport a la moyenne), et 
pi=3, 14159.. bien sur. 

Le programme NORM-DISTR pre- 
sente une animation ou un grand 
nombre de petites variations aleatoi- 
res et independantes peuvent s'accu- 
muler et s'annuler mutuellement 
pour aboutir a une distribution de ce 
type. 

Chaque point commence en haut et 
au milieu de l'ecran et tombe jusqu'a 
la ligne horizontale. En tombant il se 



deplace de fagon aleatoire soit a gau- 
che soit a droite. un peu comme un 
flocon de neige qui tombe. Une fois 
arrives a la ligne horizontale. les 
points tombent jusqu'en bas de 
l'ecran ou ils s'entassent progressive- 
ment. Un petit trait horizontal indique 
a chaque instant la valeur moyenne 
de la distribution. 

Pour obtenir la valeur chiffree de la 
moyenne et de l'ecart-type. il suffit a 
tout moment d'appuyer sur la touche 
'S' (statistiques). On peut ensuite soit 
revenir a la visualisation, soit deman- 
der I'affichage de la courbe normale. 
La touche 'Q' permet d'arreter la vi- 
sualisation. Le programme est assez 
lent et gagne beaucoup a etre 
compile, par Expediter II. par exem- 
pt ■ 



1 

2 

3 

5 

6 

7 

8 

10 

20 

30 

40 

50 



REM 

REM 

REM 

REM = 

REM 

REM 

REM 

REM 
NP = 
NT = 
NY = 
NC = 



VISUALISATION D'UNE 
DI STRI BUT I I ON NORMALE 
***D. J. HIRST 1984*** 



REVISE 7-JUN-84 



-CONSTANTES 



500 
1 40 
NT * 



NY / NP 



100 REM TABLEAUX 

1 1 DIM HI < 27?) 
120 DIM X<NP) 
130 DIM YvNP) 

19? GOTO 1010: REM > DEBUT 

20 REM S/R I NCR 

210 IA = INT < RND < 1 ) + .5) * 
220 X2 = XI + I A 
230 Y2 = Yl * 1 

299 RETURN 

300 REM S/R PLOT 

310 HCOLOR= 0: HPLOT XI ,Y1 



4-2 
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63 



199 
400 
410 
420 
4 30 
440 
450 
4o0 
4 70 
480 
4*0 

499 
500 
510 

520 
60 
610 
620 
630 
640 
650 

660 

670 
630 
699 
70 
710 
720 

799 
30 
8 1 
81 5 
320 
325 

330 



340 



350 



I F x-2 < THEN X2 = 
IF X2 > 279 THEN x; = 279 
HCOLOR= 3: HPLOT K2.Y2 
RETURN 

REM S/R HISTO 

H I I X I> = H I < X 1 :> + 1 
r 2 = ! 9 1 - HKXl) 
<2 = XI :N'.-' = NV + 1 
SX = SX + XI 
SC = SC + XI • XI 
X < K ) = 1 40 :Y< K ) = 
Ma = SX / M'.' 

HCOLQP= 0: hPLOT 0,191 TO 279,1*1 

HCOLOR= 3: HPLOT MX - 1,19! TO MX + 
1,191 

RETURN 

REM S/R H6R PI 

POKE 49232,0: POKE 49234,0: POKE 492 

36,0: POKE 49239,0 
RETURN 

REM S/R COURBE NORMAL E 

CI = . 393942 / ET 
C2 = - 1 * ET * ET 

HCOLOP= 3 

FOR X2 = TO 27* 
Y2 = CI * EXP (<X2 - MX) * <X2 - MX) 

/ C2) 
Y'2 = Y'2 * NV * 5 

HPLOT X2 , 1 90 - Y2 

NEXT X2 

RETURN 

REM S/R TOUCHE CLAVIER 

IF TC = 209 THEM GOTO 2010 

IF TC = 211 THEM 60SU8 310: REM <- 

— > STAT I ST I QUE S 
RETURN 

REM SXR STAT I ST I DUES 

IF NV i 2 THEM RETURN 
TEXT 

MX = SX / NV 

MA = IMT <MX * 1000 + .5) / 1000 - 1 
40 

ET = SOR < <SC - SX * SX / NV) / <NV 

- 1 ) ) 

EA = INT < ET * 1 000 ♦ .5) / 1000 
PRINT : PRINT " N = ";N'.': PR 

INT " MOV ENNE = " ; MA : PRINT " ECA 
RT TYPE = " ; EA : PRINT : PRINT 
INPUT "VOULEZ-VOUS LA COURBE NORMALE 
? " ; A* 



S60 GO SUB 510: REM < > HGR PI 

370 IF Hi = "O" OR "AS" = "OUI" THEM GO 

SUB 610: REM <--> 

COURBE NORMALE 
899 RETURN 

10 00 REM PRESENTATION 

1010 HOME : '.'TAB 12: INVERSE 

10 20 HTAB 7: PRINT "VISUALISATION D'UNE 

1030 HTAB 7: PRINT "DISTRIBUTION NORMALE 
" : NORMAL 

10 40 PRINT : PRINT : PRINT : PRINT " T 

APEZ - S ' POUR LES STAT I ST I QUES" 
1050 PRINT " 'OX POUR S'ARRETEP 

1060 PRINT : PRINT : PRINT : HTAB 10: PR 
INT "RAIRE RETURN >";: GET AS 

1100 REM AFFICHE CADRE 

1110 HGR : POKE 4*234,0 

1120 HCOLOR= 3: HPLOT 140.0 TO 140, MY 
1130 HPLOT 0,NY TO 279, NY 

1200 REM INITIALISATIONS 

1210 FOR I = 1 TO NP :X< I ) = 140:Y(I> = 

- 1 : NEXT I 
1220 FOP I = 1 TO 2?9:HKI> = 0: NEXT 
1230 NV = 
1240 SX = :SC = 

1300 REM PROGRAMME PRINCIPAL 

1310 FOR I = 1 TO NC 

1315 IF I < = NP THEN Y< I ) = 

1320 FOR J = 1 TO NY / NP 

1325 FOR K = 1 TO NP 

13 30 TC = PEEK < - 16334) 

1335 IF TC > 127 THEN POKE - 16363,0: 

GOSUB 710: REM < > TOUCHE 

CLAVIER 

1340 IF Y< K) < THEN 1335 

1345 XI = X<K) SY1 = Y<K) 

1350 GOSUB 210: REM >INCR 

1355 XCK) = X2:Y<K> = Y2 

1360 IF Y2 > NY THEN GOSUB 410: REM 
> HISTO 

1370 GOSUB 310: REM >PLOT 

1330 NEXT K 

1 335 NEXT J 

1390 NEXT I 

2000 REM FIN 

2010 GOSUB 310: REM > STAT I ST I QUES 

20 20 GET AS 
20 30 TEXT 



max : Le moniteur etendu 

Jacques Supernant rfpple II+, lie, lie 

Ce moniteur- autorise un controle de /'execution des 
routines en langage machine. 

• Un mode Trace et Pas a Pas tres ^^-olu^s et 
s&lect/fs sont compote's par un acces direct 
aux regis tres du G50B iou B5COB1. II est ainsi 
possible de les initialiser a son gr& ou a laide de la 
routine de nasard. 

• La gestion des fenetres d'&cran simplifie le 
mode Trace. 

• Une routine permet la recherche de suites 
d'octets. 

• Un mini-assembleur tres souple fait partie de 

• Une ligne de commande peut devenir une 
boucle a^ec lordre UUMP. 

Les fichiers source sont sur la disquette. 
Oisquette et documentation : 150,00 F TTC franco 
(bon de commande page 74). 



La version B4 du ProDOS, bien 
qu'ancienne et non commercialisee 
par Apple, est une version que cer- 
tains d'entre vous possedent. C'est 
pourquoi. nous apportons les modifi- 
cations necessaires au bon deroule- 
ment des programmes, publies dans 
le precedent numero. de I'article Pot- 
Pourri ProDOS 

Dans le programme Basic, il faut 
remplacer la ligne 1 1 7 par : 

IF PEEK (48896) <> 76 THEN 

Dans le programme assembleur, la 
ligne 47 devient : 
JSR $9C9D 

De ce fait, il faut modifier le code 
objet correspondent : 
032A-20 9D 9C 

D' autre part, pour ceux qui or 
disquette d'accompagnement, un fi- 
chier etant mal nomme. il faut rem- 
placer la ligne 6000 du programme 
Basic : BLOAD CQFD DOS. 16 
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Transformez votrc Apple lie en Apple II. 

Frangois Sermier 



Comment tourner 
I'incompatibilite 
entrc II et //e. 

L'Apple lie differe de son predeces- 
seur par des modifications materielles 
(carte langage integree et RESET dif- 
ferent), mais il comporte egalement 
des modifications du systeme d'ex- 
ploitation de base, principalement en 
ce qui concerne les routines d'en- 
trees sorties d'un caractere. Si Ton 
etudie attentivement le listing de la 
ROM moniteur. fourni dans le.ma- 
nuel de reference de l'Apple (le, on 
remarque que l'assemblage condi- 
tionnel se trouve en 9 endroits du 
moniteur. allant de $FA75 a $FD83. 
et donne un total de 137 octets de 
difference entre le moniteur He et 
celui du II. 

Les logiciels ecrits pour l'Apple II 
tournent sur le //e s'ils utilisent les 
sous-programmes d'entrees / sorties 
standards (COUT. RDKEY. KEYIN. 
GETLN). Malheureusement. il sem- 
blerait que certains d' entre eux ne 
puissent tourner sur le He, c'est le cas 
de 1'APP-L-ISP. On peut envisager 
de modifier a la main, dans l'inter- 
preteur LISP, les appels aux fonc- 
tions d'entrees / sorties, mais il faut 
alors analyser quelques 6 Ko de lan- 
gage machine pour un resultat qui 
n'est ni garanti. ni general. 
La solution retenue consiste a utiliser 
la memoire a bancs commutes (ex- 
carte langage) pour y installer un 
moniteur d' Apple II et a commuter la 
dite memoire pour fonctionner en 
emulation d'un II. 

Quelques remarques 

Ceci est done valable pour tout pro- 
gramme n'utilisant pas la carte lan- 
gage, par contre, si Ton souhaite que 
le RESET ne detruise pas le mode 
emulation, il faut se passer de I'affi- 
chage 80 colonnes. 
Si vous n'avez pas la disquette d'ac- 
compagnement. il faut introduire les 
modifications du moniteur II. puis 
sauvegarder le nouveau moniteur 
ainsi obtenu pour un appel ulterieur 
dans un programme. 

Modification du 
moniteur 

La sequence des operations est la 
suivante : 

• CALL- 151 : pour passer en moni- 
teur. 

• D000<D000.FFFFM : copie le 
moniteur en RAM (a 1'initialisation. 



l'Apple lit en ROM et ecrit dans le 
second banc de RAM). 
• FA75: AD 5D CO ... : introduire 
les 137 octets modifies d'apres la 
liste ci-dessous. 

FA75: AD 5D CO AD 5F CO 

FB51 : A? 28 85 21 

FBA3: OC 

FB83: EAEAEAEAEAEAEAEA 

FBBB: EA EA EA EA EA 

FC42: A4 24 A5 25 48 20 
FC48: 24 FC 20 9E FC AO 00 68 
FC50: 69 00 C5 23 90 F0 B0 CA 
FC58: A5 22 85 25 AO 00 84 24 
FC60: FO E4 

FC70: A5 22 48 20 24 FC A5 28 
FC78: 85 2A A5 29 85 2B A4 21 
FC80: 88 68 69 01 C5 23 B0 00 
FC88: 48 20 24 FC Bl 28 91 2A 
FC90: 88 10 F9 30 El AO 00 20 
FC98: 9E FC B0 84 A4 24 A9 AO 
FCA0: 91 28 C8 C4 21 90 F9 60 

FD1B: E6 4E DO 02 E6 

FD20: 4F 2C 00 CO 10 F5 91 28 

FD28: AD 00 CO 2C 10 CO 60 20 

FD31: 0C 

FD42: 85 32 

FD83: DF 



• C080 puis RETURN : la lecture de 
cette adresse commute le second 
banc de RAM en lecture; ainsi. 
vous etes en presence d'un II re- 
connaissable a son curseur plein. 

• BSAVE APPLE 
2+.OBJ,A$FA75.L$30F : pour 
conserver sur disque ces modifica- 
tions. 

• ou BSAVE APPLE 
2+.OBJ.A$FA75.L$2CF : pour 
garder 1' usage des minuscules du 

lie 

• 3D0G si vous voulez rester en II. 
ou bien CTRL-RESET si vous 
voulez retrouver votre He. 

11 ne reste plus qua repeter la meme 
chose dans un programme pour re- 
trouver. a volonte. un Apple II. 

Programme de 
transformation 

Pour ce faire, nous utilisons le sous- 
programme, bien connu. de 



S.H.LAM, cite dans Pom's 2, entre 
autres, pour passer une commande 
au moniteur a partir d'un programme 
Basic. 

- Ligne 40 : on reconnait la recopie 
du moniteur en RAM. 

- Ligne 50 : les modifications sont 
introduit.es a partir du disque. N'ou- 
bliez pas que vous devez etre dans la 
meme configuration qu a l'initialisa- 
tion : lecture en ROM, ecriture en 
RAM. En cas de doute, faire aupara- 
vant en mode immediat : PRINT 
PEEK (49281) qui commute en 
mode normal. 

- Ligne 60 : modification du 
RESET. L'Apple He commute auto- 
matiquement en mode normal (lec- 
ture ROM, ecriture deuxieme banc 
RAM) lors d'un RESET, il faut done 
le reexpedier en lecture / ecriture sur 
la RAM si l'on veut rester en II. C'est 
le role du petit sous-programme en 
S9DC5 : 

LDA $C083 
LDA $C083 
RTS 

Lors d'un RESET, il y a saut au 

Joint d'entree a chaud du DOS en 
9DBF. Nous l'avons modify (nor- 
malement. il teste quel Basic est actif 
et ou il est situe) pour qu'il execute 
le sous-programme en $9DC5, puis 
reprenne le deroulement normal du 
Warmstart Basic Applesoft en 
$9DD0. 

$9DBF: JSR $9DC5 
$9DC2: JMP $9DD0 

Enfin. toujours en ligne 60, 9DC5G, 

passe par la routine S.H.LAM. 

commute la memoire vive en lecture 

/ ecriture et Ton est de nouveau en 

presence d'un Apple II. Pour retour- 

ner sur le ile il suffit de faire : 

X = PEEK (49281). 

De la meme maniere. pour retrouver 

le II on fera : 

X = PEEK (-16256) 

Au lecteur de substituer au END de 
la ligne 70 toute instruction a sa 
convenance. permettant le chainage 
ou le chargement du programme si 
longtemps convoite. afin de disposer 
du programme de "boot" lancant un 
He sur un logiciel jusqu'alors reserve 
a son petit frere. 

A titre d'exemple. pour 
1'APP-L-ISP. le HELLO compren- 
dra les deux instructions suivantes : 
BLOAD SLIST et BRUN LISP- 
CODE. 
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J L ! SI 

10 PRINT CHR* (21 >: HOME 

20 PRINT : PRINT " PATIENCE, JE ME TRANS 
FORME EN" 

30 PRINT : HTAB 15: INVERSE : PRINT "APP 

LE 2+" : NORMAL 
40 Y* = " DO < DO . F F F FM " : GOSUB 150 
50 PRINT CHR* <4>;"BL0AD APPLE 2*. OBJ" 
60 = "9DBF:20 C5 90 4C DO 90 AD 83 CO 

AD 83 CO 60 N 9DC5G" : GOSUB 150 



70 END 

150 REM ROUTINE S . H . LAM (POM'S [2) 
160 REM 

170 Yi = Yi ♦ " N D9C6G" 
180 FOR I = 1 TO LEN (Y*> 

190 POKE 511 ♦ I, ASC < MID* (Y*,I,1)) + 
128 

20 NEXT : POKE 72,0: CALL - 144 
210 RETURN 

DPRttO 



Conversion chiffres-lettres 

Franqois Fleury 



NUM-ALPHA est un programme de 
conversion de chiffres en lettres de 
toules sommes superieures a 1 cen- 
time et inferieures a mille milliards de 
francs. 

Ce programme pourra done etre utile 
a tous ceux d'entre vous qui etablis- 
sent des factures, pour les collectivi- 
tes publiques, ou des cheques a par- 
tir dune imprimante. II est constitue 
de deux parties : 

- Les lignes 9000 a 9265 contien- 
nent la routine de saisie de la somme 
en chiffres. 

- Les lignes 10000 a 10850 effec- 
tuent le formatage en lettres, en te- 
nant compte des diverses particulari- 
tes de la langue francaise. qu'il n'est 
peut-etre pas inutile de rappeler : 



• Cent n'est jamais precede de 
"un". 

• Cent et quatre-vingt s'accordent 
s'ils ne sont suivis d'aucun chiffre. 

• Mille est invariable et n'est pre- 
cede de rien si le nombre de mil- 
liers est inferieur a deux. 

• On place "de" (millions ou mil- 
liards DE francs) si aucun chiffre 
ne suit. 

• etc.. 

La structure est volontairement mo- 
dulaire (seules des variables Apple- 
soft commencant par Y et Z sont uti- 
lisees) afin de faciliter la fusion de ce 
programme avec votre chef-d'oeuvre 
prefere ! 



.D.L.R : un lecteur nous a pris e 
flagrant delit ! En affet. dans Por 
16 (Trues et astuces p. 70). nous 
avions oublie de publier le source de 
la routine HSCREEN que nous evo- 
quions. Sans plus tarder nous repa- 
rons notre erreur. 



0300- 


20 


98 


FF 


JSR 


*FF58 




0303- 


BA 






TSX 






0304- 


CA 






DEX 






0305- 


80 





01 


LDA 


soioo 


X 


0308- 


18 






CLC 






0309- 


69 


17 




AOC 


C*17 




030B- 


85 


08 




STA 


toe 




030D- 


BD 


01 


01 


LDA 


*0101 


X 


0310- 


69 


00 




AOC 


£*00 




0312- 


85 


oc 




STA 


«0C 




031 4- 


A9 


4C 




LDA 


£*4C 




0316- 


85 


OA 




STA 


*0A 




0313- 


60 






RTS 






0319- 


20 


oc 


El 


JSR 


»E10C 




031C- 


e>6 


Al 




LDX 


♦Al 




031E- 


A4 


AD 




LDY 


»A0 




0320- 


A5 


E2 




LDA 


»E2 




0322- 


20 


13 


F4 


JSR 


»F413 




0325- 


A4 


E5 




LDY 


*E5 




0327- 


Bl 


26 




LDA 


<*26> 


Y 


0329- 


25 


30 




AND 


*30 




0328- 


A8 






TAY 






032C- 


4C 


01 


E3 


JMP 


*E301 









9000 
9005 

9010 

9015 
9020 
9025 

90 30 

90 35 

9040 

9045 
90 50 
9055 
9060 
9065 
9066 
9070 

90 75 
9080 
9085 



9090 



REM ********************* 

REM MODULE DE SAISIE D'UNE SOMME E 

N CHIFFRES AU CLAVIER 
REM TOUTES LES VARIABLES COMMENCEN 

T PAR Y 
REM »»*»»*»*»*»»*#»#*»#♦# 



HOME : VTAB 
: PRINT " 



: PRINT 



PRINT 



PRINT 



PRINT 



3: HTAB 20 
" ; : NORMAL : PR 



NORMAL : PR 



; : NORMAL : PR 
: : NORMAL : PR 



NORMAL 



CLEAR : 
INVERSE 

INT " 
INVERSE 

INT " 
INVERSE 

INT " 
INVERSE 
INT " , 
INVERSE 
DIM YA*(50) 
I = 34:YN = 

UTAB 3: PRINT "TOTAL 
YB* = YB* * YA*( I ) 
YN = YN + 1 
IF YN = 13 THEN YAK I ) = 

: GOTO 9105 
VTAB 3: HTAB I 
GET YA*(I): PRINT YA*< I ) ; 
I F YAt ( I > = " " OR YA* < I ) 
YA*< I ) = "2" OR YA*( I ) = 
*< I ) = "4" OR YA*< I ) = 
OTO 9105 
IF YA*< I > = "6" OR YA*< I ) = 
YAt(I) = "8" OR YA*<I) = "9 
GOTO 9105 



FACTURE. 



CHR* (13) 



■ 1 " OR 

3" OR YA 
5" THEN G 



7" OR 
THEN 



9095 

9100 
9105 

91 10 
91 15 

91 20 

9125 

9130 

9135 

9140 

9145 

9150 

9155 

9160 

9165 

9170 
91 75 
9180 
91 85 
91 90 
91 95 



IF YA*( I ) = 

235 
GOTO 9020 
IF YA*( I ) = 

235 

IF YN = 1 THEN 
HTAB 

YN 
HTAB 

YN 
HTAB 

YN 
HTAB 

YN 
HTAB 

YN 
HTAB 

YN 
HTAB 

YN 
HTAB 



CHR* (13) THEN GOTO 9 



CHR* (13) THEN GOTO 9 



GOTO 9220 



(I - 1 > : PRINT YA*( I - 
= 2 THEN GOTO 9215 
(I - 2) : PRINT YA*( I - 
= 3 THEN GOTO 9210 
(I - 4) : PRINT YA*( I - 
= 4 THEN GOTO 9205 
(I - 5) : PRINT YA*( I - 
= 5 THEN GOTO 9200 
(I - 6) : PRINT YA*( I - 
= 6 THEN GOTO 9195 
(I - 8) : PRINT YA*( I - 
= 7 THEN GOTO 9190 
(I - 9) : PRINT YA*( I - 
= 8 THEN GOTO 9185 
(I - 10) : PRINT YA*( I - 
IF YN = 9 THEN GOTO 9180 
HTAB (I - 12): PRINT YA*( I - 
IF YN = 10 THEN GOTO 9175 
HTAB (I - 13): PRINT YA*<I - 
IF YN = 11 THEN GOTO 9170 
HTAB (I - 14): PRINT YA*< I - 
IF YN = 12 THEN GOTO 9230 
YA*( I - 14) = YA*( 1-13) 
YA*( I -13)= YA*( 1-12) 
YA*(I - 12) = YA*( I - 10) 
YA* (I - 10) = YA* (I - 9 ) 
YA* (I - 9 ) = YA* (I - 8 ) 
YA* ( I - 8 ) = YA* (I - 6 ) 



1 ) ; : IF 
2);: IF 

4) j : IF 

5) ; : IF 

6) ; : IF 

8) ; : IF 

9) ; : IF 
10) ; : 

12) ; : 

13) ; : 

14) ;: 
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920 


YA*< I 


- 6> = 


YA*< I 


- 5) 


9205 


YA*( 1 


- 5) = 


YA*( I 


- 4) 


9210 


YA*( I 


- 4) = 


YA*( I 


- 2) 


9215 


YA*( I 


- 2) = 


YA*( I 


- 1 ) 


9220 


YA*( I 


- 1 ) = 


YA* ( I ) 




9225 


Y = 


=OS < 1 ) 






9230 


GOTO 


9065 






9235 


VTAB 


3: HTAB <I + 


2) : 



) 



9240 
9245 

9250 

9255 
9256 
9260 



9263 

9265 

10000 

10005 

10010 



10015 

10020 
10025 



10030 
10035 
10040 
10045 
10050 
10055 
10060 
10065 



10070 
10075 

10080 



10035 

10090 
10095 



10100 



10105 



10110 
10115 

10 120 



10125 
10130 
10135 
10140 



GET 

2) = CHR* 
GOTO 9255 
2) ; :YB* = YB* 



YA* ( I + 2 
(13) THEN 



YA*<I + 3) 
<13) THEN 



IF YA 
PRINT 



IF YA*(I 
PRINT "00" 
PRINT YAS( I + 

YA*(I + 2) 
HTAB (I + 3) : GET 
*<I + 3) = CHR* 
"0 " : GOTO 9255 
PRINT YA*(I + 3>;:YB* = YB* + YA*(I 
+ 3) 

IF YN = 12 THEN GOTO 
IF YN = 13 THEN GOTO 
FOR YT = TO Y - 21 : 

<20 + YT) : PRINT " " 

O 9265 

YTAB 3: HTAB 20: PRINT " " 
10000 

******************** 
»#*♦***»*****♦*****»* 
MODULE DE TRANSFORMATION DE S 
EN CHIFFRES A SOMME EN LETTRE 



9263 
9265 

VTAB 3: HTAB 
: NEXT YT: GOT 



GOTO 
REM 
REM 
REM 
OMME 



S 

REM TOUTES LES VARIABLES COMMENCE 
NT PAR 2 

REM ***#********#*»*«*»»» 
VTAB 10: HTAB 1: PRINT " CERT I FI EE 
CONFORME ET VERITABLE, LA PRES-ENTE 
FACTURE ARRETEE A LA SOMME DE . . . . 

2K* = "C.C.P BORDEAUX NO 123456 " 

ZTS = "CENT" 

ZW* = "CENTIME" 

ZE* = "MILLE" 

ZF* = "FRANC" 

ZN* = "MILLION" 

ZD* = "MILLIARD" 

REM ENTREE DE LA CHAINE DE CARA 

CTERE QUI CONSTITUE LE NOMBRE A ET 

UDIER 
ZH* = YB* 

REM NOMBRE 

ALE? 

REM CAS PART I CUL I ER DES 
E LONGUEUR Zl<=2 AVEC OU 
MALE 

REM A LA SUITE TOUS LES N OMBRES 

SONT AVEC 2 DEC I MALES 
Zl = LEN (ZH*) 
IF 21 = 2 AND VAL (ZH*) > 
HEN ZH* = ZH* + " .00" :Z1 = 
H*> : GOTO 10110 
IF Zl = 1 AND UAL (ZH*) > 
ZH* = 2H* + " .00" :Z1 = LEN 

GOTO 10110 
IF Zl = 2 AND UAL (ZH*) > 



ENTIER OU AVEC DECIM 



NOMBRES D 
SANS DEC I 



= 10 T 
LEN (Z 

THEN 
(ZH*) : 



THEN ZH* = ZH* + 
*): GOTO 10110 
REM 

IF MID* (ZH*,Z1 

GOTO 10130 
IF MID* (ZH*,Z1 

ZH* = ZH* + "0" 

10130 



'0" :Z1 = LEN 



10 
(ZH 



-2,1)=' 

- 1,1) - ' 
Zl = Zl + 



THEN 

THEN 
GOTO 



ZH* = ZH* + " .00" :Z1 = Zl + 3 
REM 

REM MILLE MILLION MILLIARD 

REM Z3=PARTIE ENTIERE 



10 145 
10150 
10155 
10 160 
10165 
10170 
10175 

10180 

10185 

10190 
10195 



10200 



10205 



10210 



23 = Zl - 3 
IF Z3 = THEN 
IF Z3 > 
IF Z3 > 
IF Z3 > 
IF Z3 > 



3 
6 
9 



GOTO 10375 
THEN Z4 = 1 
THEN Z4 = 2 
THEN Z4 = 3 
THEN Z4 = 4 
REM Z5=N0MBRE DE CHIFFRES DU GROU 
PE DE 3 LE PLUS A GAUCHE 
25 = Z3 - ((Z4 - 1) * 3):ZZ* = LEF 
T* (ZH*,Z5) 

IF Z4 = 2 AND ZZ* = "1" THEN PRIN 
T "MILLE " ; : GOTO 10260 
ZZ = UAL (ZZ*): GOSUB 10425 
IF 24 = 4 AND MID* (2H*,25 + 1,9) 

= "000000000" AND 22 = 1 THEN PR 
INT " ";2D*;" ")"DE FRANCS ";: GOT 
10375 
IF 24 = 4 AND 

= "000000000 
INT " " ;2D* + 
; : GOTO 10375 
IF 24 = 3 AND 

= "000000 

" " ; 2N* ; " 
0375 

IF 24 = 3 AND MID* (2H*,Z5 
= "000000" AND ZZ > 1 THEN 



MID* (ZH*,Z5 + 1,9) 
AND ZZ > 1 THEN PR 
S" ; " " ; "DE FRANCS " 



MID* (ZH*,Z5 
AND ZZ = 1 THEN 
* : "DE FRANCS " ; : 



+ 1 ,6) 
PRINT 
GOTO 1 



+ 1 ,6) 
PRINT 



;ZN* 



'DE FRANCS 





GOTO 10375 










10215 


IF 24 = 4 AND 


22 > 


1 


THEN 


PRINT " 




" ;ZD* + "S" ;' 


" ■ 
< 








10220 


IF 24 = 4 AND 


22 = 


1 


THEN 


PRINT " 




";2D*;" "; 










10225 


IF 24 = 3 AND 


22 > 


1 


THEN 


PRINT " 




" : 2N* + " S " j " 


S 








10230 


IF 24 = 3 AND 


22 = 


1 


THEN 


PRINT " 




";2N*;" "; 










10235 


IF 24 = 2 AND 


22 > 


1 


THEN 


PRINT " 




";2E*;" "; 










10240 


IF 24 = 1 AND 


2Z > 


1 


THEN 


PRINT " 




" ;2F* + "S" .! " 


" i 








10245 


IF 24 = 1 AND 


ZZ < 




= 1 THEN PRIN 




T " " ;2F*;" " ; 










10250 


IF 24 = 1 THEN 


GOTO 


10375 




10255 


IF 24 = 3 AND 


MID* 


(ZH*,Z5 


+ 1,3) 



10260 
10265 
10270 

10275 

10280 

10285 

10290 
10295 
10300 



10305 
10310 
10315 



= "001" THEN PRINT " ";ZE*i 

GOTO 10305 
ZZ* = MID* (ZH*,Z5 + 1,3) 
ZZ = UAL (ZZ*): GOSUB 10425 



IF Z4 = 
" ; ZN* 

IF Z4 = 
" ;ZN*i 

IF 24 = 
";2E*; 

IF 24 = 

";" "; 

IF 24 = 

IF Z4 = 

IF Z4 = 

= "00 1 



4 AND ZZ > 1 THEN PRINT 
■ "S";" "; 

4 AND ZZ = 1 THEN PRINT 

"; 

3 AND ZZ > THEN PRINT 
"i 

2 THEN PRINT " " ;ZF* + " 



GOTO 10375 
GOTO 10375 
MID* (ZH*,Z5 + 4,3) 
PRINT " " ;ZE*;" " ; : 



2 THEN 
1 THEN 
4 AND 
THEN 
GOTO 10340 
22* = MID* (2H*,25 + 4,3) 
ZZ = VAL (ZZ*): GOSUB 10425 
IF Z4 = 4 AND ZZ ) THEN PRINT 
";ZE*i" "; 



10320 IF 24 = 3 THEN PRINT 



;2F* + 



10325 IF 24 = 3 THEN GOTO 10375 

10330 IF 24 = 2 THEN GOTO 10375 

10335 IF 24 = 1 THEN GOTO 10375 

10340 22* = MID* (2H*,25 + 7,3) 

10345 22 = UAL (22*): GOSUB 10425 

10350 IF 24 = 4 THEN PRINT " ";2F* 



"S 
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10355 
10360 
10365 
10370 
10375 
10380 
10385 
10390 

10 395 
10400 

10405 

10410 
10415 
10 4 20 
10425 

10430 
10435 

10440 

10445 

10450 
10455 
1 0460 
10465 
10470 
10475 
10480 
10485 
10490 
10495 
1 0500 
10505 
10510 

10515 
10520 
10525 
1 0530 
10535 
10540 
1 0545 
10550 
10555 
1 0560 
10565 
10765 
10770 

10775 

10780 

10785 



10790 

10795 

10800 
10805 
10810 
1081 5 

10820 

1 0825 



IF 24 = 4 THEN GOTO 10375 

IF Z4 = 3 THEN GOTO 10375 

IF Z4 = 2 THEN GOTO 10375 

IF 24 = 1 THEN GOTO 10375 
REM CENTIMES 
22* = MID* (2H*,23 + 2,2) 

22 = VAL (22*): GOSUB 10425 

IF 22 > 1 THEN PRINT " " ; 2W* 



= 1 THEN 
: PRINT : 
REGLEMENT 
: PRINT : 



PRINT " " ;2UJ*; 
PRINT "EN VOTRE AI 
" : PRINT 2K* 
FLASH : PRINT "NOU 
VAL EUR . . ( O/N) ..?";: GET 2* 
= "0" THEN HOME : GOTO 9000 
= "N" THEN GOTO 10850 
< > "N" THEN GOTO 10405 
MODULE PRINCI PAL-GROUPE DE 



IF 22 
PRINT 
MABLE 
PRINT 
VELLE 
IF 2* 
I F 2* 
IF 2* 
REM 
3 CHIFFRES- 



IF 

IF 

R* 

IF 

R* 

IF 

2 ) : 

REM 
2A* 
2 V* 
2A* 
2B* 
2V* 
2B* 
2C* 
2 V* 
2C* 

GOSUB 



22 = THEN GOTO 10845 
22 < =9 THEN 2X* = " " + 
(22) : GOTO 10450 
22 < =99 THEN 2X* = " " + 
(22) : GOTO 10450 
22 < = 999 THEN 2X* = STR* 
GOTO 10 450 



ST 



ST 



(2 



LEFT* (2X*,1) 
2A*: GOSUB 10510 
ZV* 

MID* (2X*,2,1) 
2B*: GOSUB 10570 
ZV* 

MID* (2X*,3,1) 
2C*: GOSUB 10510 
2 V* 

10635 



DES UNITES ET DES CE 



" UN " 

"DEUX" 

"TROIS" 

" QUATRE " 

"CINQ" 

■SIX" 

"SEPT" 

"HUIT" 

"NEUF" 



RETURN 

REM CALCUL 
NTAINES 

I F 2V* = " 1 " THEN 2V* = 
IF 2 V* = "2" THEN 2 V* = 
IF 2V* = "3" THEN 2V* = 
IF 2V* = "4" THEN 2V* = 
IF 2 V* = "5" THEN 2V* = 
IF 2V* = "6" THEN 2V* = 
IF 2V* = "7" THEN 2 V* = 
IF 2V* = "8" THEN 2V* = 
IF 2V* = "9" THEN 2 V* = 
IF ZV* = "0" THEN ZV* = " " 
RETURN 

REM #»***««•»**»*****»***»»»» 

IF ZC* = "UN" THEN 2B* = " QUATRE-V 

INGT":2C* = "ON2E": RETURN 

IF 2C* = "DEUX" THEN 2B* = "QUATRE 

-VINGT":ZC* = " DOU2E" : RETURN 

IF 2C* = "TROIS" THEN 2B* = "QUATR 

E-VINGT":ZC* = "TREI2E": RETURN 

IF 2C* = "QUATRE" THEN 2B* = " QUAT 

RE-VINGT" : 2C* = " QUATOR2E" : RETURN 

IF 2C* = "CINQ" THEN 2B* = "QUATRE 
-VINGT":ZC* = " QUIN2E" : RETURN 
IF 2C* = "SIX" THEN 2B* = "QUATRE- 
VINGT":ZC* = "SEI2E": RETURN 
RETURN 

REM ************************* 
PRINT 2A*:" ";ZT*;: GOTO 10845 
PRINT ZA*;" " ; ZT* ; " ";ZB*;: GOTO 1 
0845 

IF ZA* = " " AND ZB* = " " THEN P 

R I NT ZC*; : GOTO 10845 

IF ZA* = " " THEN PRINT ZB* j " ";Z 



10830 

10835 

10 840 
10845 
10850 

10 570 
10575 
10 580 
10585 
10590 
10595 

10600 
10605 

10610 

10615 

10620 
10625 
10630 
10635 

10640 

10645 
10650 

10655 
10660 

10665 

10670 



10675 

10 676 

10680 
10685 
10690 

10695 

10700 

10705 

10710 

10715 

10720 
10725 
10730 

10735 

10740 

10745 

10750 

10755 

10760 



M X .. 


THEN 


ZV* 




" D I X " 


"2" 


THEN 


ZV* 




"VINGT" 


"3" 


THEN 


ZV* 




"TRENTE" 


"4" 


THEN 


ZV* 




"QUARANTE" 


"5" 


THEN 


ZV* 




"CINQUANTE 


"6" 


THEN 


ZV* 




"SO I XANTE" 


"7" 


THEN 


ZV* 


— 


"SOIXANTE- 


■8" 


THEN 


2 V* 




"QUATRE-VI 


"9" 


THEN 


ZV* 




"QUAT RE -VI 


"0" 


THEN 


ZV* 




■ ■ 



C*; : GOTO 10845 

IF 2B* = " " AND 2C* = " " THEN P 

RINT 2AS;" " ; 2T* ; : GOTO 10845 

IF 2C* = " " THEN PRINT 2A* ; " ";2 

T*;" " ;2B*; : GOTO 10845 

PRINT 2A*;" " ; 2T* ; " ";ZB*;" ";2C*; 

RETURN 

HOME : HTAB 17: VTAB 10: FLASH : P 
RINT "AU REVO I R": NORMAL : END 

REM CALCUL DES DI2AINES 

IF 2V* = 
IF 2V* = 
IF 2V* = 
IF 2V* = 
IF 2V* = 

IF 2V* = 
IF 2V* = 
DIX" 

IF ZV* = 
NGT" 

IF 2 V* = 
NGT-DIX" 
IF 2V* = 
RETURN 

REM **#«»**********»**»****** 
IF 2A* = "UN" THEN 2A* = "":2T* = 
"CENT" : GOTO 10655 

I F 2A* = " " THEN 2T* = " " : GOTO 1 
0655 

IF 2A* < > " " THEN 2T* = "CENT" 
IF 2B* = " " AND 2C* = " " THEN ZT 

* = "CENTS" : GOTO 10810 

REM ********************** 

IF 2B* = "DIX" THEN GOSUB 10690: 

GOTO 10820 

IF 2B* = "SOIXANTE-DIX" THEN GOSU 
B 10730: GOTO 10820 

IF 2B* = "QUAT RE -VI NGT" AND 2C* = 
" " THEN 2B* = " QUATRE-V I NGTS" : GO 
TO 10815 

IF 2B* = " QUATRE-VINGT-DIX" THEN 

GOSUB 10770: GOTO 10820 

IF 2B* < > " " AND 2C* = "UN" THE 

N ZC* = "ET UN" 

GOTO 10820 

REM »*#*»*»**********»***» 

IF 2CS = "UN" THEN 2B* = "":2C* = 

"ON2E": RETURN 

IF 2C* = "DEUX" THEN 2B* = "":2C* 
= " DOU2E" : RETURN 

IF ZC* = "TROIS" THEN 2B* = "":ZC* 

= "TREI2E" : RETURN 
IF 2C* = " QUATRE" THEN 2B* = "":2C 

* = "QUATORZE": RETURN 

IF ZC* = "CINQ" THEN ZB* = "":ZC* 
= "QUINZE" : RETURN 

IF ZC* = "SIX" THEN ZB* = "":ZC* = 

"SEIZE": RETURN 
RETURN 

REM ************************ 

IF ZC* = "UN" THEN 2B* = "SOIXANTE 

■ :ZC* = "ET ON2E" : RETURN 

IF 2C* = "DEUX" THEN 2B* = "SOIXAN 

TE":2C* = " DOU2E" : RETURN 

IF 2C* = "TROIS" THEN 2B* = "SOIXA 

NTE":ZC* = "TREIZE" : RETURN 

IF ZC* = "QUATRE" THEN ZB* = "SOIX 

ANTE":2C* = "QUATOR2E": RETURN 

IF ZC* = "CINQ" THEN ZB* = "SOIXAN 

TE":2C* = " QUIN2E" : RETURN 

IF ZC* = "SIX" THEN 2B* = "SOIXANT 

E " : 2 C* = "SEI2E" : RETURN 

RETURN 
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Micro-informations 



"The rumour mill" (le moulin a ru- 
meurs). c'est ainsi qu'on commence 
a designer Apple dans le petit monde 
des fanatiques americains de la 
micro. 11 faut dire, qua Cupertino, le 
siege d'Apple n'a jamais autant re- 
sonne de ces fameuses rumeurs. A la 
fin de l'annee 1984, John Sculley 
annoncait la sortie d'un Apple //x 
fdisquettes de 3 pouces 1/2, nou- 
veau processeur. et une capacite me- 
moire importante). Au debut de l'an- 
nee 1985, Steve Wozniak. le 
createur de 1' Apple // dementait le 
PDG, "ce projet est mort" disait-il 
lors d' interview donnee en Nouvelle- 
Zelande. et reprise dans le magazine 
britannique Apple User. Cette decla- 
ration a cause quelques bruits a 
Cupertino; et fin janvier Wozniak 
quittait Apple, pour se lancer dans la 
video. Un depart qui n'a pas man- 
que d'inquieter tous les developpeurs 
de programmes pour l'Apple //. Cet 
ordinateur serait-il bientot delaisse 
par Apple ? 

Difficile a imaginer, quand on sait 
que le // s'est deja vendu a plus de 
deux millions et demi d'exemplaires. 
Dans sa derniere interview, Steve 
Wozniak annoncait quand meme 
plusieurs choses interessantes. 

Le role assigne au f/x serait en fait 
rempli par l'Apple //, et ce grace a 
une carte. Une de ces cartes d' exten- 
sion qui font les beaux jours du lie. 
Celle-ci contiendrait le nouveau bi- 
processeur 65816. Quant a sa dispo- 
nibilite. le probleme semble etre de 
surmonter les defauts de jeunesse du 
65816 qui le rendent actuellement 
peu fiable, done tres onereux. Mais, 
tous les processeurs ont connu ces 
defauts la... 

D'autre part, une augmentation de la 
memoire qui porterait la capacite de 
l'Apple a 256 Ko. En attendant, 
deux innovations semblent etre bien 
plus proches. 

II s'agit d'abord d'une modification 
du clavier de l'Apple lie, qui devien- 
drait comparable a celui du lie. Avec 
notamment, la possibility d'obtenir 
des chiffres, des que la touche de 
verrouillage majuscule est enfoncee. 
La seconde nouveaute concerne les 
disquettes. L'Apple ' abandonnerait 
(progressivement) le format 5 pouces 
1/4, pour adopter celui du Macintosh 
(3 pouces 1/2). On parle pour ces 
disquettes d'une capacite pouvant at- 
teindre 1,6 megaoctets. II s'agirait 
alors vraissemblablement de lecteurs 
de disquettes double face, double 
densite. Eh bien. meme si le //e est 
toujours tres demande, le He n est 
pas pour autant delaisse. 

Du nouveau pour 
l'Apple //c 

Qui l'eu cru, l'Apple He a aujourd'hui 
un ecran plat a cristaux liquides ! II 



sera disponible des le mois d'avril 
1985 pour un prix d'environ 6000 
Frs HT. 

II ne fait qu'accroftre la transportabi- 
lity de la machine. En effet, il pese 
1,1 kg et mesure 13,8 cm de large 
sur 29 cm de long par 4 cm d'epais- 
seur. II affiche 24 lignes sur 80 co- 
lonnes (en mode texte) et 560 points 
sur 192 lignes (en mode graphique). 
La technologie a cristaux liquides 
permet une consommation reduite et 
une alimentation par le connecteur 
DB15 du //c. 

Pour plus de confort d' utilisation et 
un angle de vision optimum. I'ecran 
plat de l'Apple lie est inclinable. II 
doit etre utilise dans un environne- 
ment lumineux d'intensite suffisante. 

Les precautions d' utilisation : 
II est conseille d'eviter de l'exposer 
aux rayons solaires, de le demonter 
sous peine d'un endommagement 
qui serait peut-etre irremediable. 

L'Apple lie connait le DOS 3.3, le 
ProDOS. et pourra disposer de 
CP/M. One carte est prevue a cet 
effet et permettra de developper et 
d'executer tout programme standard 
pour Apple He sous CP/M. sans mo- 
dification prealable. et ce 30% plus 
vite que la plupart des cartes CP/M 
pour Apple lie. 

Le module est completement trans- 
parent pour l'utilisateur. Cette carte 
comporte un coprocesseur Z80 et 
permet done l'execution directe de 
code Z80 ou 8080. De ce fait, elle 
est compatible a 100% avec CP/M 
version 2.23. 

Les programmes 

En France 

Controle X, qui a reussi l'exploit de 
vendre aux americains de Hayden 
son programme integre CX MacBase 
pour le Macintosh, met la derniere 
main a un programme pour le // 
dont le nom de code est encore Pro- 
Base. 11 s'agirait d'une gestion de fi- 
chiers doublee d'un tableur integre. 
permettant le transfert des donnees 
des fiches vers le tableur. Utilisation 
de la souris, de 128 Ko, d'un ecran 
totalement graphique. on en enten- 
dra encore parler. Les afficionados 
de CX Base 200, qui reclamaient 80 
colonnes. doivent deja se rejouir. 

Le nouveau traitement de texte Gri- 
bouille est le premier, a notre 
connaissance pour Apple //. a couper 
automatiquement les mots, confor- 
mement a la grammaire frangaise. II 
a ete developpe. pour la society Ber- 
lingot. par Madeleine Hode. Aide 
memoire en 10 tableaux integres au 



Jean-Michel Gourevitch 

programme, glossaire de 1000 a 
22000 caracteres, dispositif evitant 
les sauts de lignes ou de pages inop- 
portuns, impression de graphiques 
integres au texte. possibility de definir 
ses propres caracteres. On nous pro- 
met la facilite d' utilisation et la rapi- 
dity pour un prix de 1700 Frs. C'est 
bien allechant. 

De 1'autre cote de l'Atlantique 

Les programmeurs s'assoupiraient- 
ils ? II serait temps qu'un nouvel 
Apple les reveillent. On peut remar- 
quer un programme de jardinage. 
Ortho, qui aide a organiser un jar- 
din. 

Un programme d'apprentissage de la 
musique que Ton dit aise : Magic 
piano d'EduSoft pour environ 50 
dollars. 

Deux nouveaux programmes de 
Beagle Bros. L'un (I.O. Silver) est un 
jeu de strategic : il faut construire un 
super ordinateur en evitant le gang 
des "bugs" (30 dollars); 1'autre est 
un utilitaire D.Code permettant de 
debugger et de gagner de la place 
dans les programmes (40 dollars). 

Pour exploiter au mieux la tablette 
Koala Pad, Koala propose des outils 
pour programmeurs, et un Graphic 
Exhibitor permettant de presenter 
les dessins realises dans une se- 
quence (40 dollars chacun). 

Fabriquer des cartes d'identite a 
l'americaine, c'est possible avec le 
ID Maker de Scarlet Software. On 
peut meme y incorporer son propre 
logo, choisir les caracteres. il en cou- 
tera 50 dollars. 

Quelques accessoires 

Tout d'abord un petit gadget qui 
convertit la sortie lecteur de l'Apple 
He aux normes des anciens lecteurs. 
Ainsi. on peut utiliser n'importe quel 
lecteur prevu pour les 11+ et He sur 
le He. grace a Adapt a disc de 
Computer Accents (30 dollars). 
Ensuite. un capot de protection pour 
le clavier du lie, permettant de le 
proteger contre divers liquides, il 
s'agit du Hard Cover de Diversified 
Manufacturing (disponible aussi pour 
le Macintosh). 

Et surtout des lecteurs de disquettes 
3 pouces 1/2. lis existent deja ? Eh 
oui, c'est l'oeuvre de Haba. Ce lec- 
teur est livre avec des programmes 
de communication, des formats pre- 
difinis pour Appleworks. et un utili- 
taire permettant de transferer Apple- 
Works sur une disquette 3 pouces 
1/2, pour un prix d'environ 450 dol- 
lars. 




Un nouveau confrere 

RS 232 est I'hebdomadaire informa- 
tique consacre aux petites annonces 
(gratuites). Toulefois. on y trouve de 
nombreuses rubriques (clubs infor- 
matiques. contact, jeux....). II est ne. 
depuis plus de six mois. pour faciliter 
1" expression et les contacts entre par- 
ticuliers. Ce magazine est indepen- 
dant et compte le rester. Distribue 
dans plus de 60 grandes villes, vous 
le trouverez dans les kiosques au prix 
de 3F. Un prix derisoire qui lui per- 
mettra de vous aider et de se deve- 
lopper. 

Vive le Mac 

Le Macintoch devient I'enfant cheri 
des programmeurs. Meme si aux 
Etats-Unis, les utilisateurs sont furieux 
d' avoir du debourser 1000 dollars 
pour se payer le kit d'extension 512 
Ko (la-bas. compte tenu des baisses 
de prix. les nouveaux utilisateurs 
achetant un 512 Ko le paient moins 
cher que le 128 Ko plus la transfor- 
mation). Leurs vociferations couvrent 
meme parfois les bruyantes campa- 
gnes publicitaires d' Apple... 
Voici done un Mac qui est alle se 
rhabiller. Transforme en portable, il 
s'appelle maintenant le Mac Colby, 
et peut integrer toute une serie de 
peripheriques : deuxieme lecteur. 
modem, disque dur, lecteur de code 
barre.... 

Voici surtout un disque dur interne 
revolutionnaire. il s'integre a l'inte- 
rieur du coffret de Macintosh. C'est 
l'hyperdrive de General Computer. 11 
est d'une capacite de 10 megaoctets, 
sur un disque dur de 3 pouces 1/2. 
Ainsi, les temps d'acces seraient 20 
fois plus rapides qu'avec une dis- 
quette et 7 fois plus rapides qu'avec 
un disque dur externe. Son prix est 
de $2800 avec 1' extension 512 Ko et 
$2200 sans extension. 



bonne vue, une rallonge (4 metres) 
pour le cable du clavier. Elle est ven- 
due par Yas et coute 10 dollars. 

Des produits 

comme s'il en pleuvait 

Tout d'abord. un processeur d'equa- 
tions, c'est le celebre TKISolver. mis 
au point par les inventeurs de Visi- 
calc. II remodele des equations jus- 
qu'a trouver les inconnues . Avec 
TK'Solver. les inconnues. connait 
plus ' Ce programme existait deja 
pour d'autres ordinateurs. il prend sa 
pleine valeur sur Mac. D une eton- 
nante rapidite de calculs. il va faire le 
desespoir (mais aussi le bonheur) des 
professeurs de mathematiques. Ce 
programme permettant de resoudre 
quasi instantanement et de fagon 
magique des problemes (pour les- 



quels il fallait des journees entieres 
de travail) est promis a un bel avenir. 
II pourrait meme en inciter certains a 
acheter un Macintosh. II est vendu 
3500 Frs par Software Arts. 

MacFortran est une implementation 
sur Macintosh du Fortran ANSI 77. II 
permet de developper des applica- 
tions utilisant le systeme de gestion 
de bureau. II contient un debugger 
symbolique au niveau source et une 
routine VIRTUAL permettant aux ta- 
bleaux plus grands que la memoire 
d'etre geres en memoire virtuelle sur 
disque. 

II autorise la programmation structu- 
re avec sous-programmes, fonc- 
tions, procedures.... (tres proche du 
Pascal). Son prix est d'environ 5800 
Frs HT. 

MacPlot est un logiciel congu pour 
travailler avec MacDraw, mais ac- 
cepte les graphiques de Chart, Mac- 
Project, CX MacBase... II analyse 
l'image et la trace avec plusieurs cou- 
leurs et/ou epaisseurs de traits. 
L'echelle du document original est 
respectee mais peut etre modifiee, la 
vitesse est parametrable selon le type 
de support (papier, film....). II se 
connecte sur le port modem du Ma- 
cintosh. Les deux logiciels cites ci- 
dessus sont distribues par Alpha Sys- 
temes. 

LaserWriter est I'imprimante a laser 
haute resolution qu'annonce Apple. 
Elle est tres differente des autres im- 
primantes a laser. En effet. elle se 
compose de trois elements princi- 
paux : 

• un ordinateur equipe d un proces- 
seur MC68000 avec un megaoctet 
et demi de memoire centre et 
512 Ko de ROM (c'est le plus gros 
ordinateur qu' Apple ait jamais 
construit). 

• l impimante a laser Canon LB- 
CX210 

• le langage de telecomposition 
PostScript. 

LaserWriter sera disponible en 
France en Juin 1985 et son prix sera 
d'environ 70 000 F. 

Appletalk est un reseau personnel, 
d'une grande simplicite d'installation 
et d'utilisation. II permet d'intercon- 
necter des Macintosh (32 au maxi- 
mum sur une distance de 300 
metres), par le biais de simples 
cables bi-fils. afin de faciliter les 
echanges d'informations et les trens- 
ferts de documents. 11 offre la possibi- 
lity aux utilisateurs de partager des 
ressources communes, tel un disque 
de grande capacite ou I'imprimante 
LaserWriter II est prevu pour 
communiquer avec d'autres reseaux 
ou ordinateurs centraux. II est entie- 
rement gere par 1' intelligence de cha- 
que element. Ceux-ci pouvant etre 
des Macintosh 128K - 512K - XL 
(Lisa), des peripheriques... 



Appletalk sera disponible en France 
vers le mois de Juin pour un prix in- 
ferieur a 500 Frs par connexion. 
MacBooster est un nouveau logiciel 
qui apporte un plus quant au confort 
d'utilisation du Mac 512 Ko. II per- 
met de diminuer les temps d'acces 
aux documents les plus frequemment 
employes. II offre a l'utilisateur la 
possibilite de choisir la taille memoire 
allouee et les lecteurs de disquettes a 
desservir. MacBooster reste en me- 
moire: ainsi, les portions de fichiers 
les plus referencees sont recopiees en 
memoire de facon a obtenir un acces 
presque immediat. 

MacBooster est compatible avec 
toutes les applications qui accedent 
aux disquettes au moyen du systeme 
de fichiers standard du Macintosh. II 
fonctionne selon les principes des 
ante-memoires et des systemes de 
migration de fichiers. L' utilisation de 
MacBooster ne modifie pas le 
contenu de la disquette. Ce logiciel a 
ete developpe par Jean-Luc Delatre. 
MacPublisher. distribue par Sono- 
tec permet de realiser une lettre ou 
un journal, de fa<;on spectaculaire. 

Un nouveau traitement de texte bri- 
tannique Macauthor d'Icon Techno- 
logy permet de choisir facilement le 
style d'ecriture d'un document, de 
realiser des documents de 698 
pages, d'inserer dans le texte des ca- 
racteres inhabituels, musicaux.... 

A propos de traitement de texte, et 
en attendant Word (disponible au 
printemps), MacWrite version 3.2 de- 
vrait etre bientot disponible. A noter. 
la possibilite de stocker et surtout 
d'imprimer des documents de 65 
pages. Le numero de la page en 
cours indique sur l'ascenseur. un 
choix de menu permettant d'aller di- 
rectement a une page donnee, la 
possibilite de centrer ou de justifier 
individuellement un element du 
texte,... 

La version amelioree de Think 
Tank pour 512 Ko, est la. Elle pos- 
sede, enfin, toutes les qualites de la 
version de 1' Apple II, et notamment 
les paragraphes. la possibilite d'obte- 
nir des documents de 35 pages, d'y 
incorporer des graphiques ou des 
dessins,... Une version completement 
differente de celle pour le 128 Ko. 

Desormais le Lisa s'appellera Macin- 
tosh XL. Ce nouveau nom symbolise 
la parfaite adaptation de Lisa a I'en- 
vironnement de Macintosh. 11 utilise 
tous les logiciels du Macintosh et est 
totalement compatible avec les nou- 
veaux produits annonces par Apple 
(Appletalk. LaserWriter...). 

Et. puis, pour l'automne un match 
au sommet s'annonce passionnant. 
L'equipe dirigee par Paul Lutus. qui 
a cree Appleworks est passee chez 
Microsoft et y prepare un programme 
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integre pour le Macintosh, qui pour- 
rait concurrencer le celebre Jazz de 
Lotus, deja createur de 1. 2. 3 pour 
1'IBM PC. L'annee Mac s'annonce 
decidement bien. 

Les livres 

Les produits d'Enseignement Assiste 
par Ordinateur nous envahissent. 
Chez Magnard : 

- Sesame (230 F) est destine a ap- 
prendre les rudiments du Basic aux 
enfants. 

- Le Basic (990 F). Racines verbales 
(490 F). Homophones (490 F). Logi- 
que et Math (560 F). Ces produits. 
d'origine canadienne. nous semblent 
dans 1' ensemble bien faits. si ce n'est 
pour le dernier qui aurait merite 
d'etre traduit du francais canadien en 
franco-francais. 

- Macintosh, modes d'emploi, de 
William Skyvington, Seuil La Re- 
cherche, 150 F. Traduction. C'est le 
enieme livre d'initiation au Macin- 
tosh, a croire que les pauvres ache- 
teurs de ce materiel sont totalement 
incapables de lire les notices pourtant 
bien faites d' Apple. A part les classi- 
ques MacWrite. Paint, Multiplan et 
Chart, on y trouve une presentation 
de MacDraw et MacProject. Un petit 
plus par rapport aux livres qui n'en 
parlent pas. 

- Apple, modes d'emploi. de Wil- 
liam Skyvington. Seuil / La Recher- 



che. 110 F. Traduction. On retrouve 
le meme principe de description de 
logiciels standards mais, ce qui est 
moins frequent, applique a 1'Apple //. 
II s'agit principalement de modes 
d'emploi fort resumes (mais sans 
fiche synthetique ni glossaire) d'Ap- 
ple Writer. Quick File. Multiplan et 
Business Graphics, avec une touche 
de Calvados. 

- 250 questions sur la micro-infor- 
matique de Ilya Virgatchik, Marabout 
service. Les questions sont classees 
par themes : generalites. achat et 
maintenance, questions techniques, 
systemes d'exploitation, peripheri- 
ques, langages. programmation. pro- 
grammes d'application, jeux ' ensei- 
gnement. Heureusement, un index 
de quatre pages permet un peu de 
s'y retrouver. J'aurais prefere un 
sommaire detaille avec la liste des 
questions, afin de pouvoir mieux or- 
ganiser la consultation et la lecture. 
Tel qu'il est, ce livre est malheureu- 
sement peu pratique a lire pour re- 
pondre aux questions qu'on se pose, 
puisqu'on ne peut les connaitre 
qu'en le lisant de bout en bout ... 



Adresses 

Controle X - Tour Maine Montpar- 
nasse - 33 ave du Maine - 75755 
Paris Cedex 15 



Berlingot - 18 rue Elile Duclaux - 
75015 Paris 

Ortho Information Services - 575 

Market St - San Francisco - CA 
94105 

EduSoft - PO Box 2560Q - Berke- 
ley - CA 94702 

Beagle Bros - 3990 Old Town Ave 
- suite 1026 - San Diego CA 92110 
Koala - 3100 Patrick Henry Drive - 
Santa Clara CA 95052 
Scarlet Software - PO Box 11166 
Milwaukee - WI 53211 
Computer Accents - PO Box 5307 
Kingwood - TX 77325 
Diversified Manufacturings 
4722 8th Street - Wichita KS 67208 
Haba Systems - 15154 Stagg 
Street - Van Nuys CA 91405 1025 
Colby Computer - 849 Indepen- 
dence Ave MountainView - CA 
94043 

General Computer - 2155 First 
street - Cambridge MA 02142 
YAS - 1525 N Elston Chicago - IL 
60622 

Jean-Luc Delatre - 7, rue de Ram- 
bouillet - 78120 Clairefontaine - Tel 
(3) 484.50.51 

Apple Seedrin - ZA de Courta- 
boeuf - Ave de l'Oceanie, BP 131 - 
91944 Les Ulis - Tel (6) 928.0L39 
Alpha Systemes - 16 rue de Saus- 
sure - 75017 Paris - Tel 763.59.81 
RS 232 - 109 rue G. Lauriau - 
93100 Montreuil - Tel 859.71.01 



Courrier des lcctcurs 

Olivier Herz 



En ce qui concerne I' article sur le 
"Disque Virtuel 64K". publie dans 
Pom's 14. je me demande s'il est 
possible d'utiliser une carte d'exten- 
sion 128 Ko comme disque virtuel. 
et de (aire tourner un programme 
comme CX BASE 200 ou PFS. 
Mr Francois Fossat - Immeuble Le 
Tilleul - 74 bd Loius Roux - 06700 
Saint Laurent du Var 

Le disque virtuel est fait pour fonc- 
tionner avec le DOS 3.3 et les pro- 
grammes "tournant" sous ce sys- 
teme. Par consequent. les 
programmes CX BASE 200 et PFS, 
ayant leur propre systeme d'exploita- 
tion. ne peuvent utiliser le disque vir- 
tuel propose dans Pom's. 



Est-il possible de copier des disquet- 
tes formattees sous Pascal UCSD ou 
CP/M a I'aide du programme 



COPYA se trouvant sur la disquette 
Master DOS 3.3 ? 

Mr Stephane Levi/ - 142 rue Gam- 
betta -45120 Chalette 

Le programme COPYA vous permet, 
effectivement, de copier toutes dis- 
quettes formattees sous Pascal 
UCSD, CP/M. ProDOS... 



A propos de "Disk Manager 2". j'ai- 
merais savoir quel est le niveau de 
son utilitaire "Ultra Copie" par rap- 
port a Locksmith 5. ? Est-il en fran- 
cais ? 

Mr Gilbert Roche - Quartier Jumel. 
Saint Julien du Serre - 07200 Aube- 
nas 

Ultra Copie et Locksmith ne sont pas 
comparables. 

Locksmith 5.0 permet. entre autres. 
de copier certaines disquettes prote- 
gees, de copier tres rapidement des 



disquettes formattees en 16 ou 8 sec- 
teurs (DOS 3.3. ProDOS. CP'M. 
Pascal). 

Ultra Copie, quant a lui, permet de 
copier des disquettes formattees en 
16 secteurs : soit normalement, soit 
selectivement en ne copiant que les 
secteurs qui sont effectivement utili- 
ses. Ce procede est d'autant plus ra- 
pide que la disquette originale est 
moins remplie. 

Le Disk Manager est, a notre 
connaissance, un utilitaire sans prece- 
dent. II permet d'acceder directement 
aux secteurs de la disquette pour 
ecrire des programmes en Basic agis- 
sant sur la disquette (gestion de cata- 
logues, utilitaires...); et ce, depuis le 
Basic. De telles choses n'etaient reali- 
sables qu'avec des routines en as- 
sembleur. 

Le Disk Manager est l'oeuvre d'un 
lecteur francais de Pom's, il est done 
en frangais, ainsi que sa documenta- 
tion. 
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Par quel biais peut-on realiser le de- 
placement du DOS vers la carte Ian- 
gage 16 Ko ? 

Mr Pradayrol - 21 rue Guenegaud - 
75006 Paris 

De nombreux logiciels, le plus sou- 
vent vendus avec une carte d'exten- 
sion 64 ou 128 Ko. permettent de 
placer le DOS sur la carte langage. 
Le programme MEMORY MASTER, 
par exemple, qui est fourni avec la 
carte LEGEND (testee dans Pom's 
5). DIVERSI DOS (DOS 3.3 ame- 
liore) possede un utilitaire. DDMO- 
VER, qui le reloge sur la carte lan- 
gage. Et enfin. plusieurs revues ont 
publie des programmes deplacant le 
DOS sur la carte 16 Ko. La plus ce- 
lebre est CALL APPLE (CALL 
A P P LE in Depth : All about DOS), 
avec son programme DOS MOVER 



Je souhaiterais avoir quelques eclair- 
cissements sur les entrees sorties de 
I Apple He avec la carte 80 colonnes. 
J'essaie vainement de faire une copie 
d'ecran 80 colonnes sur une impri- 
mante DMP. 

Maurice Gaston - Boussieyral - Saint 
Andre Alias - 24200 Sarlat 

La methode suivante permet de rea- 
liser une copie d'ecran en 80 colon- 
nes. Toutefois la place memoire ne- 
cessaire est importante. 

1- Tranferer la page texte dans la me- 
moire a l endroit souhaite ($2000 - 
$23FF par exemple). Pour ce faire. 
utiliser la routine MOVE du moniteur 
($FE2C). qui deplace la zone delimi- 
tee par $3C-$3D et $3E-$3F vers la 
zone commencant en $42-$43. Ceci 
permet d'eviter d'eventuels proble- 
mes lies au DOS lors du transfert 
vers l'imprimante. 

2- Transferer la page texte de la me- 
moire auxiliaire dans la memoire 
principale a l'endroit souhaite ($2400 
— $27FF par exemple). Pour ce 
faire. on utilise la routine AUXMOVE 
du moniteur ($C311). qui deplace la 
zone delimitee par $3C-$3D et $3E- 
$3F vers la zone commencant en 
$42-$43. De plus, il faut forcer le bit 
de retenue du 6502 a (CLC) pour 
indiquer que le transfert se fait de la 
memoire auxiliaire vers la memoire 
principale. 

3- 11 ne reste plus qu a tout envoyer a 
l'imprimante en faisant attention a la 
disposition des octets de la page 
texte. et en sachant qu'un octet sur 
deux vient de la memoire principale. 
tandis que l'autre provient de la me- 
moire auxiliaire. 

Vous pouvez vous inspirer de 1' article 
de Christian Guerin. publie dans 



Pom's 3. en ajou'ant respectivement 
$1C00 et $2000 aux adresses de 
debut de ligne de la page provenant 
de la memoire principale (qui 
commence en $2000) et de celles 
provenant de la memoire secondaire 
(qui commence en $2400) 

Une deuxieme solution, plus econo- 
mique en temps et en place me- 
moire, serait d' utiliser le Basicium. il 
vous permettrait de realiser une 
copie d'ecran texte grace a la 
commande ]H. 



DIE OBJ, paw dans Pom s 11: Pour 
eviter un OUT OF MEMORY avec 
des programmes Basic comprenant 
plus de 160 lignes, il faut taper, 
depuis le moniteur : 
93D1 : B8 B4 B4 
93D4 : 68 68 
93D6 : 4C 54 93 

Ainsi. la pile sera mise a jour et les 
appels a LIST ne poseront plus de 
problemes 

Yvan Kcenig Ceramiques Gerbino - 
rue du Stade - 06220 Vallauris 

J'ai lu dans Pom 's 15 que lastrologie 
interessait un de vos lecteurs, Joel 
Moreau. et je suis ravi de pouvoir lui 
repondre. J'ai developpe un logiciel 
sur le sujet: il s'agit de "Astrologie In- 
terpretation Rationnelle ". Cette ver- 
sion se compose d'une disquette 
contenant. sur une face les fichiers 
des diverses influences astrologiques 
(environ 100 Ko) et des modules de 
calcul d interpretation sur l'autre. 
Ceux-ci sont principalement ecrits en 
Basic compile (tres peu d'assem- 
bleur). Le prix est tres raisonnable. 
Pour plus de renseignements n'hesi- 
tez pas a me contacter 

Paul Franceschi - 5 rue de la Foret 
Sainte - 67500 Haguenau 



Grace a un programme paru dans 
Pom's 7. j'ai pu realiser un pro- 
gramme de calculs financiers relative- 
ment complet : taux d'interits. ren- 
dement d'investissement a flux de 
montants non egaux et non reguliers 
(portefeuille de boursier. par exem- 
ple). achat d 'obligations, effet de de- 
duction fiscale... Compte tenu de la 
specificite du probleme. je ne 
m'etendrais pas. Que les lecteurs in- 
teresses me contactent. 

Jean Michel Quetin - 8 allee de la 
Boissiere - 92350 Le Plessis Robin- 
son 



Vends un Apple II. extension 16K. 
deux drives, un moniteur noir et 
blanc. joystick et paddles au prix de 



10000 Frs et une imprimante OKI 
84. 200 cps. 132 colonnes au prix 
de 7000 Frs Ivaleur 1 1000 Frsl. 

Philippe Zitoun - 1 1 allee de la Pavil- 
lone - La Celle St Cloud 



Ayant programme un jeu d'aventu- 
res. j'ai eu la folle idee de le faire 
editer (a 16 ans. on a encore des il- 
lusions). D'autres l'avaient fait avant 
moi... Je prenais done de nombreux 
contacts. Toujours la mime reponse : 
envoyez votre disquette. Ediciel. qui 
favorise la creation francaise en tra- 
duisant les plus mauvais programmes 
americains. m a mime repondu que 
les jeux d'aventures ne I'interessaient 
pas... Et puis un beau jour, miracle, 
arrive chez moi une lettre. de 
1'agence Octet, m'invitant aux "Jour- 
nees du Logiciel". ministere de la 
culture a l'appui. Emportant mes 
rives de celebrite et mes disquettes. 
je my rendais. A 1' entree, on me re- 
mettait un superbe badge avec 
"Franqois Coulon - Createur". Je 
commencais amy croire. .. 
J'ai erre parmi les stands, helas rien 
d'interessant pour moi. sauf peut-itre 
une proposition d'Exelvision m'of- 
frant la possibilite d'adapter mon jeu 
a leur matiriel. Je decouvrais. avec 
1'arrivee de certains journalistes. un 
des buts de I'organisation : s'icouter 
parler entre gens biens. I'informati- 
que est a la mode, n est-ce-pas ? 

Apres la remise des prix. nous par- 
tions. mon pere et moi. J'avais perdu 
une demi journee et ramasse des 
adresses que je possedais aupara- 
vant. 

J'ai done decider de ne jamais faire 
editer quoi que ce soit. et de prouver 
que je n ai pas besoin d'editeur pour 
faire connaitre mes produits. C'est ce 
pari que j'aimerais pouvoir tenir. 
grace a vous. Vous Pom's, en pu- 
bliant cette lettre. vous montrerez 
aux editeurs qu ils ne sont pas indis- 
pensables. Vous lecteurs. en achetant 
mon programme, vous prouverez 
que je n ai pas besoin d'eux pour ga- 
gner de largent avec le fruit de mon 
travail. Je n'ai pas besoin d'eux, mais 
j'ai besoin de vous. 
Pour tout autre renseignement sur ce 
jeu ("1928") et sur le prochain n'he- 
sitez pas a me contacter. 
Les opinions que j'exprime n'enga- 
gent. bien entendu. que moi. 

Francois Coulon - 4 route de Ham - 
80190 Nesle 

Votre lettre est un temoignage prou- 
vant. une fois de plus, qu'il est diffi- 
cile de s'imposer comme createur a 
16 ans; d'autant plus que la 
commercialisation d un produit (quel 
qu'il soit) ne peut se faire que dans 
le cadre d une structure adaptee. 
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Vous 



et pom's 



Toujours flans I'optique de sastisfaire nos lecteurs, voici un 
petit questionnaire qui nous permettra de savoir ce que vous 
pensez de Pom's. Ainsi, pour la realisation des procnains 
numeros, nous prendrons en consideration toutes les 
reponses et remarques que vous nous ferez parvenir. 
Nous procederons a un tirage au sort, afin de determiner les 
10 Bulletins gagnants. Ceux-ci beneficieront d'un 
abonnement avec disquettes. Pour participer a ce tirage, II 
vous suffit de nous renvoyer ce petit questionnaire avant la 
fin du mois d'avril. 

Ce bulletin pourra, bien sur, rester anomyme. 



Votre age : moms de 15 ans □ 
de 20 a 24 ans □ 
de 35 a 45 ans □ 



5exe : 

Vous utilisez 



feminin □ 

un Apple II* 
un Apple //c 
un Mac 1 28 K □ 
un Lisa □ 



□ 
□ 



de 15 a 19 ans □ 
de 25 a 34 ans □ 
plus de 45 ans □ 
masculin □ 

un Apple //e □ 
un Apple /// □ 
unflac5l2K □ 



□ a votre travail □ 



Vous rutiltsez : chez vous 

autre 

Date dachat 

Vous disposez de : 

lecteurs 

une imprimante marque modele 

une carte 80 c. marque modele 

une carte couleur □ une carte CP/M □ 

une table tracanten un disque dur □ 

autre 

Quel materiel allez-vous acheter dans les 6 mols : 



Combien de numeros de Pom's avez vous lu 

Comment avez-vous connu Pom's : 

publicite parue dans une revue □ kiosque I I 

5lccD. Micro-Expo, Apple Expo □ boutique □ 

par un autre amateur □ 

Combien de personnes lisent votre Pom's 

votre opinion, de 5 (tres bon) a (tres mauvais), sur 

le niveau general de la revue 

sa presentation 

l'interet des programmes 

l'origlnalite des programmes 

la clarte des articles joints 

l'interet pedagogique de ces articles 

les bancs d'essais 

les micro-informations 

les disquettes d'accompagnement 

Ce que vous preferez dans chaque numero : 



Ce que vous aimez le moins : 



Ce que vous souhaitez voir prochainement dans 
Pom's : 



Ce qu'll faut developper ou changer : 



Votre opinion sur le "Cahier Mac' : 



Vous utilisez votre materiel pour : 

votre travail □ une gestion personnels □ 

jouer □ le plaisir de programmer □ 

autre 



En programmation, votre niveau : 

debutant □ 
amateur avert! □ 



intermediate □ 
haut niveau □ 



Quels langages pratiquez-vous aisement : 

Basic □ Pascal □ Forth □ 
Assembleur 6502 □ 65C02 □ 
Lisp □ autres 



Logo □ 
68000 □ 



Vous passez chaque semalne devant I'ecran : 

molns de 2 heures □ entre 3 et 8 heures □ 

entre 9 et 16 heures □ plus de 16 heures □ 



Vos remarques particulieres : 



Quelles autres revues informatiques lisez-vous ? 



Norn : 
Prenom : 
Adresse : 

Ville : 
Code Postal 
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DISQUETTES (sauf precision, toutcs les disquettcs fonctionncnt sous DOS 3.3 sur Apple II + , He ou He) 



(cf. 


Pom 


(cf. 


Pom 


(cf. 


Pom 


(cf. 


Pom 


(cf. 


Pom 


(cf. 


Pom 


(cf. 


Pom 


(cf. 


Pom 



sn 5) a 55.00 F 

s n 8) a 150.00 F 

s n 10) a 80.00 F 

s n 11) a 450.00 F 

s n 11) a 450.00 F 

sn 12) a 80.00 F 

s n 12) a 80.00 F 

a 150.00 F 



MUSIC 

DISK-MANAGER 
DBSTAG (CP/M) 

JEUX A 

JEUX B 

BASICIUM 

E.P.E (cf. Pom s n" 15) a 150.00 F 

MACINTOSH (cf. Pom's n" 14-15-16) a 150.00 F 

MACINTOSH (cf. Pom's n" 17) a 80,00 F 

PASCAL (cf. Pom's n" 15) a 80,00 F 

DEMO MAX THE GOLBE TROTTER ( c f Editorial) a 55,00 F 

MAX (moniteur etendu) (voir p. 64) a 150.00 F 

RECUEILS 

N° 1, recueil des revues 1 a 4 a 140.00 F 

Disquettes d'accompagnement des numeros 1 a 4 a 150.00 F 

N" 2, recueil des revues 5 a 8 a 140.00 F 

Disquettes d'accompagnement des numeros 5 a 8 a 190.00 F 

ANCIENS NUMEROS 



REVUES □ 


4 


□ 7 


□ 8 






a 35.00 F 


REVUES □ 


9 


□ 10 


□ 11 


□ 12 


□ 13 




□ 


14 


□ 15 


□ 16 


□ 17 




a 40.00 F 


DISQUETTES □ 


1 


□ 2 


□ 3 


□ 4 


□ 5 




□ 


6 


□ 7 


□ 8 


□ 9 


□ 10 




□ 


11 


□ 12 


□ 13 


□ 14 


□ 15 


a 55.00 F 


□ 


16 


□ 17 











ABONNEMENTS 

POUR 6 NUMEROS a partir du n 



ABONNEMENT SANS DISQUETTES a 200.00 F 

ABONNEMENT AVEC DISQUETTES (Apple II + , lie, lie) a 480 .00 F 



TOTAL TTC 
Supplement expedition 
par avion a l'etranger 

MONTANT 

DU REGLEMENT 



Ces tarifs comprennent 1'envoi postal en France metropolitaine. CEE et Suisse 
Supplement avion hors CEE : 10 F par numero et/ou disquette 

Envoyez ce bon et votre reglement a (Abonnes : n'oubliez pas de joindre I'etiquette-adresse). 

Editions MEV - 64-70. rue des Chantiers - 78000 VERSAILLES 

Nom ................ 

Adresse ; 
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C'est pour pouvoir (aire face a imc 
demande plus de dix fois 
superieure a ce qui avait etc prevu 
qu'Hello a decide de lancer une 
nouvelle fobricalion de 2 000 
cartes Apple-Tell. Avantage de 
la grande serie .- de tres sensibles 
reductions de cout sur le prix des 
composants LSI et VLSI, 
pennettant de faire chuter de plus 
de 20 "« le prix de la carte 
Apple-Tell. 

Le modem vedette de votre Apple, 
deja couronne Pomme d'Or 1983, 
a suscite en 1984 trois nouvelles 
Pommes d'Or. recompensant trois 
des (tres nombreux) logiciels que 
ses utilisateurs out deja dedies 
a Apple-Tell : 

-> MICRO-KIDS :serv£u_r 
monovoie pour les fitablissements 
d'enseignement. 

YASA : outil de composition 
de pages v ideotex induant 
un serveur arborescent complct. 
->TMBASIC : Basic telecom 
et videotex, destine a la creation 
de serveurs et de terminaux 
automatiques. 

Parmi les autres logicicls crees pour 
Apple-Tell : 

TELEPOM : enrichissement 
du Basic (6() instructions nouvelles) 
permettant de creer soi-meme 
des serveurs (Ascii et videotex), 
des messageries ou toutes applications 
telematiques. 

-> ASCII EXPRESS : outil general 
de telecom destine a permettre 
I'impression et le stockage des 
donnees recues. incluani un 
emulateur universel de terminaux. 
-> PROTEXT : editeur-souris. 
permettant la composition (texte et 
dessins) de pages Teletel destinees 
a des serveurs . 

FAKJR : serveur Ascii 
(messagerie electronkjue integree. 
induant panneau d'annonces, 
annuaire des abonnes. 
telechargement, horloge temps reel, 
mots de passe, console operateur, 
etc.). 

DISCOBOLE : copie dedisquettes 
par telephone (Uos, MemDos, Pascal. 
CI' M). 

->TRANSTEXT : convertisseur 
d'ecrans (Haute Resolution 

Teletel). 
-^BASI : module-systeme 
pennettant la conimande du modem 
depuis le Basic, sous ProDos. 
-> INSPECTOR :generateur 
d'etiquettes-adresses par consultation 
automatique de I'annuaire 
electronique selon des choix 
socioprolbssionnels el geographiques. 
->CAI.VA-K1T : consultation 




Prix uHNsatoir H.T. axeettt au I" fevrier WK. 



automatisee du centre serveur 
"Calvados". 

PELAGIE : serveur speciaJise, 
pennettant la consultation d'un Apple 
a partir d'un reseau de minitels. 
( Deux versions : Basic Dos 3.3 et 
MemDos.) 

->NESTOR4 : serveur a QUATRE 
ACCES SIMlITANf.S, disque dur 
10 Mo, gestion automatique des 
touches de fonctions du minitel, 
arborescena' et mots des integres. 

-^XESTORI : sen'eur monovoie 
(meme caracteristiques que Nestor4). 
... Les serveurs sont servis ! 

APPLE TELL COMPREND : 

• une carle Modun lava" terminal Ascii 
integrc) incluani un decodeur Teletel. 

• Un logiciel d'emulation de terminal 
Minitel enrichi des lameuses trois . 
fonctions dont labsence est une tragedic 
quotidienne pour les utilisateurs 

de Teletel : 

IMPRESSION (sur I'imprimante 
de I' Apple), 



STOCKAGE sur disquettes des pages CARACTERISTIQUES 

consultees ( formats Teletel ou Ascii). GENERALES : 

AUTOMAT1SME : interrogation • modem I 200 7S (Ccitt) et W full (standards 
automatique des serveurs (appel et Bell), a numerotation automatique, 

teleplionique. orientation Transpac. • aulo-connexion. permettani la creation de 
identification, choix successifs), m 1 h;lllds - 

enregistremcnt des donnees consultees, * : vUto mm ^ (N S 151 el pfrilel ^ 

puis traitement et incorporauon ~b, e dans n importe quel si,,, fibre- 

des donnees dans I application. de k , , w * \ m , 

( Ces procedures d interrogation sont- disqueite ) ' 

creees par I'uaJisateur, sans aucun • transparence totale vis-a-vis , ' 

langage de programniation. grace au j„ «steme ' 

mode APPRF.NTISSAGE clApplc-Tell. ) / HELLO 

Enfin et surtout. une jonction est ^flH« ' ' Inlormatique 

possible avec les outils de travail ' '• rue de Mctz 

habiluels (Apple- Writer. Visicalc. . '*l^''2W^ r /' 7S010 PARIS 

Vlultiplan. PFS. Quick-File, ^MKBfBf / Tel • (1) S '3 30 3-1 

compta facturation. , Tikx . FLASH , |() S0( j p 

fichier, etc.). , Njom 

✓ 

/ Societe 

Adresse 

/ vine 

Code postal Tel 

□ Souhaite recevoir une documentatiori sur le systeme Apple-Tell. 
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